DDDDDDDDDDDD IWIIII11 SSSSSSSSSSSS KKK KKK QQ0000000 

DDDDDDDODDDD WII! SSSSSSSSSSSS KKK KKK 000000000 

DDODDDDDDDDD WWIII SSSSSSSSSSSS KKK KKK 000000000 

DDD DOD II] SSS KKK KKK Q00 QQ 
DDD DDD II] SSS KKK KKK Q00 QQQ 
DOD DDD 11] SSS KKK KKK 00 Q29 
DDD dDD II] SSS KKK KKK QQQ QQQ 
DDD DDD 11] SSS KKK KKK QQQ QQQ 
DDD DOD 11] SSS KKK KKK QQQ QQQ 
DDD DDD II] SSSSSSSSS KKKKKKKKK QQQ QaQ 
DDD DDD II] SSSSSSSSS KKKKKKKKK QQQ QQQ 
DDD DDD 11] SSSSSSSSS KKKKKKKKK QQQ QQQ 
DOD DDD II] SSS KKK KKK QoQ 6800 6 = QQ 
DOD DDD II] SSS KKK KKK QoQ 6800 = QQ 
DDD DDD II] SSS KKK KKK QoG )§=6aQQ = 0 
DDD DDD 11] SSS KKK KKK QQ0 QQQ 

DDD DDD 11} SSS KKK KKK QQ0 QQ0 

DDD DOD III SSS KKK KKK QQ0 QaQ 

DDDDDDDDDDDD IIIIII11 SSSSSSSSSSSS KKK KKK QQ00000 6©6aaad 
DDDDDDDDDDDD HII1111 SSSSSSSSSSSS KKK KKK QQ000Q aaa 
DDDDDDDDDDDD HIV] SSSSSSSSSSSS KKK KKK Q00000 6©6aaa 
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| **F 1LE®*1D**DISKQUOTA 

| 

| 
DDDDDDDD I1111 SSSSSSSS KK KK Qaa0a0 UU UU 000000 TTTTTTITTT AAAAAA 
ODDDDDDD Ii1111 SSSSSSSS_ KK KK QQQQ00 UU UU 000000 TTTTTTTITT AAAAAA 
oD 50 I] $s KK KK QQ QQ Uw UU 00 00 TT A AA 
0D 0D 11 $s KK KK QQ QQ UU uu 00 00 TT AA AA 
0D 0D I] SS KK KK QQ QQ UU uu 00 00 TT AA AA 
0D 0D I] ss KK KK QQ QQ UU uu 00 00 TT AA AA 
oD 0D 1] SSSSSS KKKKKK QQ QQ UU uu 00 00 TT AA AA 
0D DD II $SSSSS KKKKKK Q Q@ wu uu 00 00 TT AA AA 
0D OD 11 SS KK KK QQ QQ QQ UU uu 00 00 TT AAAAAAAAAA 
0D 0D 11 SS KK KK QQ QQ QQ uv uu 00 00 TT AAAAAAAAAA 
0D 0D 1] SS KK KK @ Q UU uu 00 00 TT AA AA 
0D 0D 1] SS KK KK QQ aa UU uu 00 00 TT AA AA 
DDDDDDDD LI1111 SSSSSSSS KK KK Q0QQ QQ VYUUUUUUUUU 000000 TT AA AA 
DDDDDDDD HI] SSSSSSSS KK KK QQ0Q QQ VUUUUUUUUUU 000000 TT AA AA 
LL II1111 SSSSSSSS 
LL M111] SSSSSSSS 
LL 1] $s 
LL I] $s 
LL I] SS 
LL Il $s 
LL 1] SSSSSS 
LL I] $SSSSS 
LL 1] $$ 
LL Il S$ 
LL I] $$ 
LL I] $$ 
LLLLLLLLLL HII SSSSSSSS 
LLLLLLELLLL HNI111 SSSSSSSS 
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MODULE DISKQUOTA ( ! Disk quota maintenance utility 
LANGUAGE (BL 18832), 
MAIN = DISK_QUOTA 
ADDRESSING_MODE (EXTERNAL = GENER 
NONEXTERNAL = LONG. RELATIVE), 
1DENT = 'v04-000' 


BEGIN 


' 
PROC RREHE HAHAHAHAHAHA AAERHARARHHERETHHEHEEHEREREREKERHRAAEERERAAREREAeEReReeee 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ie pe he I$ Sart cite te UNDER A LICENSE AND MAY BE USED AND soiee 
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ie INCLUSION 0 . 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. ‘ 
' 6 
i THE INFORMATION IN THIS SOFTWARE 1S SUBJECT 10 CHANGE WITHOUT NOTICE 8 
te 

® 

® 

® 

® 

® 

te 
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:@ SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!e CORPORATION. 


ie DIGITAL ASSUMES NO RESPONS 
ie SOFTWARE ON EQUIPMENT WHIC 


ITY FOR THE USE OR RELIABILITY OF ITS 


LITY 
S NOT SUPPLIED BY DIGITAL. 
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FACILITY: VMS System Manager Utilities 

ABSTRACT: 
This program implements the commands necessary to maintain the 
quota file on a files-11 structure level isk. Functions are 
provided to create the quota file, enable and disable quotas, 
add, iist, modify, and remove authorization entries. 

ENVIRONMEN: : 


VAX/VMS Operating System 


SSSSSSSSsSsssssssooooess 
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Seererrrse 


AUTHOR: Andrew C. Goldstein, CREATION DATE: 19-Jun-1979 18:54 
MODIFIED BY: 
v03-003 LMP0140 L. Mark Pilant, 23-Aug-1983 12:57 
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14.52 -1984 23:38:38 AX-11 Bliss- 
12-8 08=1 oh 13:78:08 DISKO. SRC IDI 
Add support for alphanumeric UICs. 
v03-002 LMPO133 L. Mark Pilant 46-Aug-1983 12:14 


Don't set the protection for the created quota file. Let 
the ACP determine it. 


v03-001 acevese Andrew C. Goldst gin. 16-Apr-1982 9:38 
d DO_10 entry point for REBUILD 
v02-006 pegedy rtin L. Jack, 4-Nov-1981 


xtend PLIT in act EREATE so that newly hitioticed quota file 
loos not contain garbage in last few longwords. 


v02-005 nets Steven T. Jeffreys, 29-Jun-1981 
Changed external references to use general addressing mode. 
v0006 ACG0129 Andrew C. Goldstein, 25-Jan-1980 19:28 
Use common REBUILD routine 
v0003 ACG0087 Andrew C. Goldstein, 
Steve Jeffre 20-Nov-1979 20:41 


Add help facility, remove EXAMINE command, add EXIT command 
Add overdraft Limit, default values for ADD 


v0O002 ACG0056 Andrew C. Goldstein, oiugerwre 14:49 
Fix REBUILD function to work on non-volume sets 


LIBRARY 'SYSS$LIBRARY:L1B.L32 
LIBRARY ‘SYSSLIBRARY: TPAMAC. ga"; 
FORWARD ROUTINE 
DISK_QUOTA ' main routine 
INV_COMMAND, i signal invalid command 
INV_ SWITCH, ' signal invalid switch 
oy BEEAOLT NOVALUE ar hg Fe By ee ape 
8 e H u vi 
itr ae : NOVALUE, pene: ten handler for above 
comman 
ACT “CREATE, i CREATE command 
ACT"ENABLE i ENABLE command 
ACT-DISABLE, gle ha pee 
c n 
ACT-REMOVE , i REMOVE command 
Att ty ong I gt 4 
comman 
ACT =ReBuilb, i REBUILD command 
CT" HELP ' HELP command 
MAIR_HANOLE i facil ity condition handler 
EXIT” WANDER’ : NOVALUE, i facili vy exit handler 
C 10; ' common 1/0 routine ioe DO_10 calls 


i Structure declarations used for system defined structures to 
i save typing. 
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STRUCTURE 
BALOCK LO, P, S, E; NJ = 


(BBLOCK+0)<P,S,E>, 

eee) Ci, 0, P, S, E; N, BS) = 
N*BS) 
‘(BBLOCKVECTOR+1*BS)+0)<P,S,E>, 


EXIT CTRL 5 {1 ; NJ = ! exit handler descriptor 
Ci4ende4) ! N= # of arguments ( N <= 1) 
(EXIT _CTRL_BLK+1#4)<0,32,0>; ! the block is a longword array 


t 
Macro to generate a string descriptor. 
MACRO 
DESCRIPTOR (STRING) = 
R UPLIT (ZCHARCOUNT (STRING), UPLIT BYTE (STRING))2; 
; Macro to signal error exit. 


MACRO 


ERR_EXIT () = 
SIGNAL_STOP (ZREMAINING) 


! 
Macro to signal error message. 
MACRO 
ERR_MESSAGE [) = 
SIGNAL (ZREMAINING) 


Macro to declare argument List in TPARSE action routine. 
MACRO 
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TPARSE_ARGS = 
BUILTIN AP; 
BIND TPARSE_BLOCK = AP : REF BBLOCK; 
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15-Sep-1984 23:38:3 AX-11 Bligs<32 V4.0-74 Pa 5 
12=365-1986 13:19:06 {oisKa. SRC Siskouota.o33; a (2) 
4 «1 RR_TEXT (NONLOCAL, . &. ‘device is not @ local device’); 
16 1 RR-TEXT (NOTRAN - E. jlogical name is recursively detined’); 
1 1 RR_TEXT (NODEVICE, - E. ‘no device 5 haga selected ); 
"so ERR_TEXT eeev token’ . €. ‘error grea ng quo a file’); 
18 1 ERR-TEXT (IN TERR, - £. jerror initializing quota tile’); 
19 (#1 grea text eSb98 RR, . —. ‘error closing gue a file’); 
1 ERR_TEXT (A ire » E. ‘failed to enable quota file’); 
1 ERR-TEXT (DACTERR,  €, *failed to disable quota file’); 
§ 1 ERR_TEXT (ADDERR . E. ‘failed to add quota file entry’); 
1 ERR TEXT (REMOVERR - E. {failed to remove quota file entry’): 
4 1 ERR-TEXT (MODIFYERR, , €. ‘failed to modify quota file entry’); 
-_ gna text (EXAMINERR, ° i ‘cannot examine quota file entry’); 
$ 1 ERR_TEXT CINUSE i, +E tou, tou has ‘UL blocks in use"); 
1 ERR-TEXT (LOCKERR » €, ‘failed to lock volume’); 
8 1 ERR-TEXT (UNLOCKERR, , E, ‘failed to unlock volume’); 
1 ERR_TEXT (MAXVOLS, - E. ‘volume set has too many volumes to handle’); 
0 1 ERR_TEXT (ACCINDEXF, . &. ‘failed to access index file on relative volume !UW'); 
ee ERR_TEXT (ACCOF ILE 8. E, ‘failed to access quota file’); 
3 1 ERR-TEXT (QUOTARERR, , E, ‘1/0 error reading quota file'S; 
1 ERR_TEXT (BI TMAPERR 1, E, ‘1/0 error reading index file bitmap on relative volume !UW"); 
1 ERR_TEXT (HEADERERR, 5° W, ‘1/0 error reading file header !UL on relative volume !UW'); 
5 1 ERR_TEXT (MEMALLOC, . E. ‘cannot allocate sufficient memory'); 
1 ERR_TEXT (HOMEBLOCK, 1, E€, ‘failed to read home block on -elative volume !UW'); 
1 ERR_TEXT (HELP_INIT, 1, E, ‘failed help Library index init’); 
8 1 ERR_TEXT (HELP_OPEN, 1, E. ‘failed to open help Library’); 
0239 1 ERR_TEXT (HELP_TEXT, 1, E, ‘failed to access help text"); 


Eee... 


WN OS OBNO VEU (OOOO UE WT" 


4 
4 
- 
& 
4 
4 
4 
& 
4 
4 
5 
5 
5 
6 
6 
6 
6 
64 
65 
6? 
68 
4 
0 
71 


a a a a a 8d ed et a a a 
. — . - 


g 
Sse -1984 :38:3 AX-11 Bliss-32 V4.0-74 
12-8 08-1 9b 93:78:28 DISKO. SRCIDISKQUOTA.B3 31 
' 
; Module own storage. 


LITERAL 

May by 2 133° 
OUTPUT _CENGTH = 132, 
' MAX_KEYS = 14, ! 2e(max # of keys) for HELP commnad 


The following are indexes into the Exit Handler Control Block 


KHNDLR_ADDRESS = 1, ! exit handler address 


MHNDLR_ARGCNT = = ¢: ' exit handler argument count 
KHNDLR_STSADDR = 5; ! system exit status address 

OWN 
CHANNEL : WORD ! channel for disk 1/0 
10. STATUS : VECTOR (4, WORD], ! 1/0 status block 
COMMAND LINE : VECTOR [COMMAND LENGTH, BYTE], ! command Line buffer 
OuTPuT_CINE : VECTOR COUTPUT_CENGTH, BYTEJ, ! output Line buffer 
COMMAND _DESC : VECTOR (2) INITIAL (COMMAND _LENGTH, COMMAND_LINE), 


' command Line descr pter 
OUTPUT _DESC : VECTOR (2) INITIAL (OUTPUT_LENGTH, OUTPUT_LINE), 


quotes Line descriptor 
EXIT HNDLR_DESC : EXIT_CTRL_BLK (1), 
! exit handler descriptor 
Area to zero before each command. 
ZERO_AREA : VECTOR (0), 
: Cleanup action flags 
CLEANUP_FLAGS =: BITVECTOR (32); 
LITERAL 


' unlock volume set 


CLF _UNLOCK = 0, 
xIT = 1; ! exit command entered 


CLF_EXI 
: Quota file record buffers 


SRC_REC : BBLOCK (DOQFSC_LENGTH), 
DST"REC : BBLOCK CDQFSC_LENGTHI, 
FIB for quota file operations 
QUOTA_F 18 : BBLOCK CFIBSC_LENGTH), 
: TPARSE action routine output 
UIC_FLAGS : BITVECTOR (32), ! UIC wild card flags 


: Storage used for HELP function. 


DA SKBUOTA 18-50-1984 $3: 38:28 AX-11 Ot igs. 3e V4.0-74 Page 7 


14-Sep-1 DISKQ.SRCIJDISKQUOTA.B32;1 3) 
3 97 1 KEY_VECTOR : VECTOR CMAX_KEYS), ! use as a descriptor vector 
; 38 } KEY-INDEX, 

; 00 ZERO_END : VECTOR (02; 

; 0 1 LITERAL 

: 03 1 ZERO_LENGTH = ZERO_END = ZERO_AREA; 

: oF 3 ! Quota record descriptors 

: 309 1 ¢ 

; 310 8 1 SRCREC_DESC : VECTOR INITIAL (DQFSC_LENGTH, SRC_REC), 

> 311 9 1 DSTREC “DESC : VECTOR INITIAL (DQFSCZLENGTH, DST-REC) 

: \¢ 10 QF 18_DESC : VECTOR INITIAL (FIBSCZLENGTH, QUOTA_FIB); 

: 1 0 \§ : TPARSE interface and output 

: 316 14 1 LITERAL 

: 317 16 1 WILD_GROUP = $BITPOSITION (FIBSV_ALL_GRP), 

: 318 16 1 WILD-MEMBER = $BITPOSITION (FIBSV~ALL—MEM) 

: 319 0317 1 PERM SPEC = $BITPOSITION (FIBSV-MOD-PERM), 

; 30 9 18 OVER-SPEC = $BITPOSITION (FIBSVMOD-OVER); 

; 23 0 0 1 OWN 

; $ 2 TPARSE_BLOCK BBLOCK CTPASK_LENGTHO) 

; : 8 ¢ | INITIAL (TPASR_COUNTO, TPASM_ABBREV); 

; 26 0324 1 BIND 

: ? 0325 1 UIC_VALUE = SRC_RECCDQFS$L_UIC), ' full UIC 

3 528 0 § 1 PERA_VALUE = SRC_RECCDQFS$L_PERMQUOTA), ! permanent quota 
3 ; 83 ! OVER_VALUE = SRC_RECCDQFSL_OVERDRAFT); ! overdraft Limit 
; 331 0329 PSECT PLIT = SOWNS; 

; 33 033 1 BIND 

; 4 O33 ' QF ILE_NAME = DESCRIPTOR ("QUOTA.SYS;1"); ! quota file name 
: 33 0334 1 PSECT PLIT = SPLITS; 
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Ssleecate GEESE WMGLSSAaprBeanbidZ. 
GLOBAL ROUTINE DISK_QUOTA = 
'e4 
Functional Description: 
This is the main program of the disk quota utility. It accepts 
—— from SYSSINPUT, parses and processes them, and reports 


Calling Sequence: 
standard 


Input Parameters: 
none 
Implicit Inputs: 
none 
Output Parameters: 
Implicit Outputs: 
none 
Routines Called: 
none 
Routine Value: 

none 
Signals: 


none 


Side Effects: 
none 


STATUS, ' general status value 
P; ! general string pointer 


‘ 
: Generate translation table to convert lower case to upper case. 


MACRO 

UMMY) (] = 

OUNT AND %X°7F*) GEQU ‘a*) AND ((ZCCUNT AND 2X°7F*) LEQU ‘2°) 
COUNT AND ae ay 

COUNT AND 2X'7F*) 


COUNT LSSU 255 
, UPCASE_ENTRY (0) 


UPCASE_E 


coco 


eRe" 


95 


PENIS SRLSSEAN 


FRERE 


1B-Beomt96e 25:58:58 Yana] Bligs32 v4. 0-743 | 
q; 


BIND 
UPCASE TABLE = UPLIT BYTE (UPCASE_ENTRY (0)); 


EXTERNAL LITERAL 
LIBS_SYNTAXERR; ! syntax error status from TPARSE 


EXTERNAL R Ht ai 
LIBSGET_ INPUT : ADDRESSING _MODE (GENERAL), ! get Line from SYSSINPUT 
LIBSTPARSE : ADDRESSING MODE (GENERAL); i parse and process command 
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3 4 P 046 SSTATE (DO_MODIFY1, 

3; 46 P 046 ((CAD_SWIT), DO_MODIFY1) 

: 4 464 (TPAS"LAMBDA, MORE, ACT_MODIFY) 
3 : ret ; 

; re rh] ! 

; 67 46 ! SHOW command 

bie Beg! 

: 675 P 0471 SSTATE (DO_SHOW, 

; 47 P 047 ((UTC), MORE, ACT_SHOW) 

3; 67 47 ); 

: 47 474 

; 67 475 : 

; 680 47 ' REMOVE command 

it re 

: 68 Pp rh SSTATE (DO_REMOVE 

> 484 P 0480 ((UTC), MORE, ACT_REMOVE) 

3 ret 481 ); 

3 rh peas ' 

; 488 0484 ' Process additional commands on Line 
Ste 

: 691 P 04 SSTATE (MORE, 

: 49 Pp 04 8 (*s") START) 

> 49 P 0489 (Tea$_E0S, TPAS_EXIT) 

: 69% 490 ); 

: 33 be92 5 | 

: re be98 ' Process command switches 
eG: 

; 500 Pp 496 SSTATE (CMD SWIT, 

: 301 Pp 0497 Cry 

3 208 99 

: 204 P0500 2 $STATE (, 

: 505 P 0501 ('PERMQUOTA’, DO_PERMQUOTA,, 1°PERM_SPEC, UIC_FLAGS), 
: 396 Pp 0308 ("OVERDRAFT', DO-OVERDRAFT,, 1*OVER_SPEC, UIC-FLAGS), 
; 23 P 050 (TPAS_SYMBOL,, IRV_SWITCH) 

; 508 504 ); 

; 509 505 

: 510 P 05 SSTATE (DO_PERMQUOTA, 

> 511 P 050 (*=*) 

3 \¢ 508 ); 

8 1 509 

: 514 P0510 2 S$STATE ( 

> 515 P 0511 (TPAS_DECIMAL, TPAS_EXIT,,, PERM_VALUE) 
BBN : 

: 18 P 0514 SSTATE (DO_OVERDRAFT, 

: $1 P 0515 (*s*) 

3 0 219 ); 

: 1 51 

: 2 P0518 2 $STATE (, 
L 


eae" NEEM FEE 


(TPAS_DECIMAL, TPAS.EXIT,., OVER_VALUE) 


3 
4 


' 
Process device name 


SSTATE 


DEV_SPEC 
TPAS_ SYMBOL) 


( 
( 
); 
SSTATE (, 
C's") Tpas E 
(reas, [AMeDA TPAS EXIT) 
t 


Process UIC 


WANA WINnnononronofrornornornonn =] 


SODNA AEN $0 ODA NE WN 0 ODNA UNE AN MO ODNAUE UM" O0 


; 54 P 05 SSTATE (UIC 

3 544 P 054 (TPAS_IDENT, TPAS_EXIT,, ,UIC_VALUE) 
3; 545 54 ); 

3; 54 54 

; «546 54 ! 

; 548 54 ' HELP command 

; 849 54 ! 

; 550 054 

; 551 P 054 SSTATE (DO_HEL 

3 33¢ P 054 (TPRS_S TRI ING, DO_HELP,SAVE_KEY), 
; 55 P 054 ({D0 QUAL IF TER) , DO- HELP. SAVE “KEY), 
; 554 P 055 ('e! 0- SAVE “KEY), 
; 555 p 054 (CELIPSIS), POO HEL LP,SAVE_KEY), 
: 396 P 055 (TPAS_LAMBDA, none ac ones 

; 55 055 ); 

; 838 P b32 SSTATE (DO_QUALIFIER 

3 560 P 055 (*/*) 

; 561 55 ); 

; 26¢ 55 

; 56 P 055 SSTATE (, 

; 264 P 056 ('PERMQUGTA', TPAS_EXIT), 

: 565 P 0561 ("OVERDRAFT', TPAS"EXIT). 

3 66 Pp 36¢ (TPAS_STRING, TPAS~EXIT) 

; 56 6 ); 

: 568 564 

: 569 P 0565 2 S$STATE (ELIPSIS, 

5 0 Pp 266 °°) 

: 4 28 ds: 

: rg Pp 569 SSTATE (, 

: 74 P 0570 *. "2 

: 575 571 ); 

3 on 276 

: $7 P 057 SSTATE (, 

: 578 P 0574 ('.*) TPAS_EXIT) 

: $79 575 ); 
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13.Se “19 :38:38 AX-11 Bliss-32 V 4 -0-76 Pa 13 Dd 
1e-Sep-1 3b 3: 8:28 DISK. Bh CJDISKQUOTA.832;1 - (6) u 
ae 
4 : Set up a channel to the default disk, if it is defined. 
: 6t 
; ENABLE MAIN_HANDLER; 
§ USE_DEFAULT (); 
5 ! 
Set up the exit handler descriptor and declare the handler. 
$ EXIT _HNDLR_DESCCXHNDLR een j= tei HANDLER; 
590 @ EXIT HNDLR—DESCCEXHNDL 2¢ 
44 EXIT"HNDLR_DESCCXHNDLR_ ST SADR] = EXIT HNDLR_DESCCXHNDLR_STSADDR+1); ve 
0598 SDCLEXH (DESBLK=EXIT_HNDLR_DESC); 
0595 ! Acquire a command Line, convert to upper case, ang parse it. Command 
B29 ! processing is actually done by parser action Foyt’ nes. If a syntax error 
59 ! occurrs, output an error message. Errors occurring during the command 
Beo8 : processsing are signalled at that time. 
00 . 
01 WHILE 1 DO 21 
o¢ BEGIN 7 
60 
gone COMMAND _DESCCO] = COMMAND _L 
05 STATUS = LIBSGET_INPUT CCORMAND "BESC, DESCRIPTOR ("DISKQ>')); 
+05] IF NOT .STATUS 
060 THEN 
0608 4 BEGIN 
609 4 i ~STATUS NEQ RMSS_E 
10 4 THEN ERR_MESSAGE tDSKkas. CMD_ERR, .STATUS); 
11 4 RETURN 1; 
pets END; ac 
0614 CHS TRANSLATE eater 2: He OMMAND _DESC(0) the DESCC1), .0, | 
15 roma st 0] z COMMAND, dés 
if P = COMMAND 1 D_6€ 
: UNT CLCHBRCHAR t pe )N 
8 COMMAND “DESCLOI = .P = .COMMAND_DESC[1); 
1 CHSFILL (0, ZERO LENGTH. ofut AREA) ; 
: TPARSE_BLOCKLTPASL_STRIN NID" . COMMAN 2 -dESCEO}: 6 
TPARSE— BLOCK TPASL— STRINGPTR .» COMMA ND- DESCL1); 
4 STAT us" = Lie TPARSE (TPARSE "BLOCK, STATE TABLE, KEY_TABLE); 
5 If NOT .STATUS 
$ 4 BEGIN 
8 4 r STATUS EQL LIBS_ bel ee 
4 THEN STATUS = $74 KOs. SYN 
0 4 ERR_MESSAGE ( ue Tus, 
1 4 ARSE sei ock TpASL. TOKENPTR] = .COMMAND_DESC(1), 
6352 4 COMMANDS ae 2( 


Mw 


vuvvU 


DOSE REE ERR Re Roto 
—OOONOVE WO 


RINNE PPE 


OvFrwn—0O0@ 


If . CLEANUP =fLAGSCCLE aEXITI 


THEN RETURN’ 1 
END; 


1 
END; 


45 4€ 42 


- TPARS 
. TPARSE 
» TPARS 

,  TPARSE 
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54 


50 


49 


4h 
as 
53 
41 
49 
4C 


4h 


L 
L 
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52 
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58 


45 


4F 


OCKETPAS 
OCKLTPA 
OCKLTPA 
OCKLTPAS 


41 
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-BLOCKETPASL_TOKENCNT], 


“BLOCKLTPASL_TOKENCNT 


' if EXIT command encountered 
! then exit DISK QUOTA 


! end of command 


! end of routine 


00000 ; 
00000 
8 
00004 
coy 
00008 
80018 ; 


00013 


00019 
QOO1A 


eeted | 


st 


eeew 7 


ss 


00024 ; 


00088 


ce 
o mde 


-TITLE 


-PSECT 
et rete A 
; TPASKEYST 


U.70:  .ASCII 


-BY 
; TPASKEYSTO 
4:  .B 

; TPASKEYST 


0.76: ASCII 
BYT 


_Tpasne vito 


sipASKevst 
ASCII 


-BY 
; TPASKEYSTO 
 CAsKevs! 


G.89:  .ASCII 
eet 


-ASCII 


BYTE 
; TPASKEYSTO 


loop 


DISK_QUOTA 


DISKQUOTA 
\V04=-000\ 


-LIBSKEY1$,NOWRT, SHR, PIC,1 
\ADD\ 
-1 


- ‘mataled 


0 
hs laatartad 


0 
eu 


0 
\EXIT\ 
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V 
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46 
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52 


45 
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45 


45 


45 


48 


53 


45 


56 


45 


56 
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Me KEYSTO 


00033 tt KEYS 
ele AS oi 
0039 


005A : TPASKEYST0, 


ce cece. 
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00059 
00059 ; 


—e =e 


cc: Ce: 
_ 
~< 
=a 
>—- 


tec 
00068 ; 1 evi 


U L 
00063 ; TPASKEYST 
249: .ASCII 


-BY 
$008 ; TPASKEYFILL 
U.254: .BYTE 


-PSECT 
00000 STATE aan 


G0000 1 oer 5k 


00002 ; i tinal 
00004 UEpASTyPE 
U.77: WORD 
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0 
WESUILON 


\REMOVE \ 


Oo 
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ee 
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X aintamtommeni 
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os  ummeetni 
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-LIBSSTATES,NOWRT, SHR, PIC,1 


4352 
<<U.72°U.735>-2> 
-28415 


2¢ 
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ot 


10 
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00000000v 00006 ; TPASACTION 


0000+ 000K viPRSTARGES © 
9102 0000¢ ‘ipastvee 
00000000v 0000E ; TPASACTION 
0000+ 0012 ViPASTARGET 
9103 00016 vigasrveé 
00000000v 00016 FipabactioN 
0000+ O001A : #pASTARGET 
7106 0001¢ : #pAStYPE 
00000000 0001E ; fpAsADDA 
00000002 00022 ; 7PASMASK 
FFFF 00026 UP ASTARGET 
1105 00028 siPagrvPé 
0000+ 0002A ; TPASTARGET 
1106 0002¢ ; TPASTYPE 
0000* 0002E ; TPASTARGET 
9107 00030 sipasty e”° 
00000000v 00032 sipagactioN 
oheced Niue 
08 on aftr ae 
0000+ O003A  7PASTARGET 
1109 0003¢ s#PASTYPE 
0000* 00036 ; TPASTARGET 
U.129: .WO 
110A 00040 s#PASTYPE 
0000+ 00042 ; #PASTARGET 
B11 00066 s#PASTYPE 
00000000v 00046 sipagaction 
15F7 O004A iinagiet 
FFFF QOOO4C ; TPASTARGET 


<<ACT_CREATE*U.78>-4> 
<<U.79-U.80>-2> 

=28414 
<<ACT_DISABLE=-U.85>=4> 
<<U.79"U. 86>-2> 

28413 
<<ACT_ENABLE=U.91>=4> 
<<U.79-U.92>-2> 

28932 
<<CLEANUP_FLAGS-U.97>-4> 
2 

-1 

4357 

<<U.104-U.105>=2> 

4358 

<<U.110°U.111>=2> 
-28409 
<<ACT_REBUILD-U.116>=4> 
<<U.79-U.117>-2> 

4360 

<<U.122-U.123>-2> 

4361 

<<U.128-U.129>=2> 

4362 

<<U.134-U.135>-2> 
-32271 

<<INV_COMMAND=-U. 137>=4> 
5623 


r---— 
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Sat 1$-Se0-1984 93; 18:38 DISKQ.SRCJDISKQUOTA.B 33551 
; U.139: .WORD =1 
J004E 00, SE ene 
90F8 O004E it TYPE a sean 
0000* 00050 ;f : 
— v. <WORD <<U. 142. 1463>-2> 
00000000v 00052 ;f 


eLONG  <<ACT_USE=U.144>-4> 


PA 
14 
PA 
14 
i 
“ee ai jine Hamer <<U.79"U.145>-2 
2 © ° = . >= > 
ne § 9s si BLKB =O 
19F8 00058 ; TPASTYPE 
U.146: .WORD 6648 
0000* O005A ; TPASSUBEXP 
U.148: WORD <<U.147-U.148>-2> 
0000* O005SC ; TPASTARGET 
U.149: WORD <<U.72-U.149>-2> 
1DF8 OOOSE ; TPASTYPE 
U.150: .WORD 7672 
0600* 00060 ; TPASSUBEXP 
U.152: .WORD <<U.151-U.152>-2> 
N000* 00062 ; TPASTARGET 
U.154: .WORD <<U.153-U.154>=2> 
00064 ;D0_ADD1 
U.153: .BLKB 0 
19F8 00064 geagt ire 
U.155: .WORD 6648 
0000* 00066 ; TPASSUBEXP 
U.156: . <<U.147-U.156>-2> 
0000* 60068 pTeastance! 
U.157: WORD <<U.153-U.157>-2> 
95F6 O006A Net Hal 
U.153: WORD -27146 
00000000v 0006C ; TPASACTION 
U.159: .LO <<ACT_ADD=U.159>-4> 
0000* 00070 ; TPASTARGET 
U.160: .WORD <<U.79-U.160>-2> 
00072 ;00_MODIFY 
HE -BLKB 0 
19F8 00072 ; TPASTYPE 
U.161: .WORD 6648 
0000+ 00074 ; TPASSUBEXP 
U.162: .WORD <<U.147-U.162>-2> 
0000* 00076 ; TPASTARGET 
U.163: .WORD <<U.110-U.163>-2> 
10F8 00078 ; TPASTYPE 
U.164: .WORD 7672 
0000* 0007A p TeApSUBE XP 
U.165: WORD <<U.151-U.165>-2> 
0000 on07¢ ; TPASTARGET 
U.167: ty ee <<U. 166°U. 167>-2> 
0007€ 509 MODIFY 
U. : ,BLKB 0 
19F8 OOO7E ; TPASTYPE 
U.168: .WORD 6648 
| 
| 


<o | 


E 


— 
sues" 


10 
ease =1984 23:38:3 AX-11 Bliss=-32 V 
12-8 08-1 3b $3: 78:28 DISKO. SRCID1SKO 
—— AAT Seeet <<U.14672U. 169>-2 
: 3 . = a - > 
— irs Mae 3 <<U. 166°U.170>-2 
2 : — . - o = > 
95F6 00084 aay Se ane 27146 
een jira ACTION <<ACT_MODIF Y“U.172>=4 
a : © "VU. >-4> 
0000* OOO8A ; TPA iancet ~ 
U.173: WORD <<U.79-U.173>-2> 
0008¢ iar Hi ante 
9DF8 0008C ztPASTYPE pone 
ee: sete jTPASSUBEXP <<U.7512U.175>-2 
_ $ . ef = . >- > 
ppg Snaneine Ne adr <<ACT_SHOW"U.176>-4 
" H “ -U. >=-4> 
0000* 00094 peep tance = 
U.177: WORD <<U.79-U.177>-2> 
_n i tees  vBLKe 0 
9DF8 00096 ; TPASTYPE 
U.178: «WORD -25096 
0000* 00098 ; TPASSUBEXP 
-179: WORD <<U.151-U.179>-2> 
a one b tebe -toNe <<ACT_REMOVE =U. 180>-4 
- $ 2 -U. >-4> 
0000* OOO9E ; TPASTARGET ™ 
U.181: .WORD <<U.79-U.181>-2> 
000A0 sRoRE 
U.79: -BLKB 0 
1038 OOOAO ; TPASTYPE 
U.182: WOR 4155 
—— et TAR ORD <<START“U.183>-2 
.183: . “U.183>-2> 
15F7 OOOAG ; TRASTYPE 
U.184: .WORD 5623 
FFFF QOOA6 gieegtanee 
U.185: .WORD 1 
OOOAS ;CMD_SWIT 
U.147: .BLKB 0 
042F OOOAB ; TPASTYPE 
U.186: .WORD 1071 
7108 OOOAA gts He 28939 
00000000* o00ac Alt ADDR NG IO ta OES 
e 8 ‘i -U. 9 -4> 
00000008 00080 ; TPASMASK : : 
U.192: .LONG 8 
acattveuedl A+ + day 3 <<U.1935"U. 194>-2> 
a ire 110% ne See 
aaninantien ira MOOR <<UIC_FLAGS“U.199>=4 
= 8 é -U. >-4> 
00000010 OOOBC ; TPASMASK ~ 


UOTA.B 


OL PKOUOTA 


0000 
85F1 
00000000v 


0430 

55F3 
00000000« 

FFFF 


0430 

55F3 
00000000¢ 

FFFF 


051 
103A 
FFFF 
156 
FFFF 


55SEC 
00000000« 
FFFF 


91F0 
00000000v 

0000* 

998 


000C0 ; 
000c2 
000¢4 
000C8 
000C8 
QOOCA 
ooocc 
00000 ; 
00002 ; 
00002 ; 
00004 


00006 ; 


OO0DA 
0090C 
0000¢ 
000D! 
000E0 
QO0E2 ; 
000E4 
000E6 
000E6 
000E8 
QO0EC 
OOOEE 
OOOEE 
000F0 
000F4 
000F6 


Soden 1964 3:88:58 


CiBABTARGET 


2 

P 

2 

P 

208: .LONG 
Si 
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16 

<<U.201°U.202>-2> 
=31247 
<<INV_SWITCH-U.204>-4> 
0 

1085 

22003 
<<PERM_VALUE =U. 208>-4> 
-1 

0 

1085 

22003 
<<OVER_VALUE=U.212>-4> 
-1 


21996 
<<UIC_VALUE=U.220>=4> 
-1 

0 

-28176 
<<SAVE_KEY-U,223>=4> 
<<U.104°U.224>-2> 
26120 


wae" 


0000 
00000000v 
0000+ 
902A 
00000000v 
0000* 
99F8 
0000+ 
00000000v 
0000+ 
95F6 
00000000v 
0000+ 


042F 
1100 
FFFF 
110€ 
FFFF 
15F0 
FFFF 


042E 
042E 
142€ 
FFFF 
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OOOFS ; TPA SUBEXP 


U.227: _.WORD 
OOOFA ,TBASACTION 
OOOFE siastanGey 
00100 ZtBASTYPE 
00102 ZTBASACTION 
00106 iB TARGET 
00108 iB Main OO 
0010A ZTBASSUBEXP 
0010¢ ZTBASACTION 
00110 ZTBASTARGET 
00112 ZTBASTYPE 
00114 ETBASACTION : 
00118 ;TBASTARGET 
OO11A i00 QUALIFIER 
0011A ZTBASTYPE 
0011¢ ETBASTYPE 
OO11E ; TPASTARGET 
U.246:  .WORD 
00120 ZiBASTYPE 
00122 ZIBASTARGET 
00124 ZTBASTYPE 
00°26 ; TPASTARGET 
0.253:  .WORD 
00128 EL PSIS sal 
00128 ;iBA TYPE ap 
0012A ; TPASTYPE 
0.256: .WORD 
0012¢ TBASTYPE 
0012€ ; TBASTARGET 
-258: WORD 
PSECT 


00000 KEY_TABLE:: 
BLK 


<<U.226°U.227>-2> 
<<SAVE_KEY-U.228>-4> 
<<U.104-U.229>=2> 
-28630 
<<SAVE_KEY"U.231>=4> 
<<U.104°U.232>-2> 
-26120 
<<U.234°U.235>=2> 
<<SAVE_KEY"U.236>-4> 
<<U.104-U.237>=2> 
-27146 
<<ACT_HELP=U.239>=4> 
<<U.79*U.240>-2> 

0 

1071 

4365 

-1 

4366 

-1 

5616 

-1 

0 

1070 

1070 

5166 

-1 


-LIBSKEYOS,NOWRT, SHR, 


0 


Pa 20 
” (6) 


———e 


coco 


7 Fg TA 


0000+ 
0000+ 
0000+ 
0000+ 
0000+ 
0000+ 
0000+ 
0000+ 
0000+ 
0000+ 
0000+ 
0000+ 
0000+ 
0000* 
0000+ 


00000000' 
00000000° 
00000000' 
00000000" 
00000000' 
00000000° 
00000060° 
00000000' 
00000000° 
00000000' 


00014 
00016 
00018 
QO01A 
0001C 


1$-hep-19 4 23:3 
14-Sep-1984 $33} 


00000 ; TPASKEYO 
00000 
00002 
00004 
00006 
00008 
QO00A 
0000C 
0000E 
00010 


: -BLKB 


U.67 
; TPASKEY 


_ 


48: . WORD 
»PSECT 


00000 MESSAGE TABLE: 
00000 jM$G_INDEX 
00004 ;MSG_INDEX 
00008 ;#SG_INDEX 
0000C : ASG 
00010 ;#SG 
00014 ;MSG_IN 
00018 
Q001C ;ASG_INDEX 
00020 ;ASG_ INDEX 
00024 iWSG_ INDEX 


5: 


38 ype oi iss 
46 DISKO.SRCJD 


<U.68-U.67> 
<U.74°U.67> 
<U.81-U.67> 
<U.87-U.67> 
<U.93-U.67> 
<U.100-U.67> 
<U.106-U.67> 
<U.112-U.67> 
<U.118-U.67> 
<U.124-U.67> 
<U.130-U.67> 
<U.187-U.67> 
<U.195-U.67> 
<U.242-U.67> 
<U.247-U.67> 


=32 V4.0-74 
ISKQUOTA.B32;1 


SMSG_INDEX ,NOWRT ,NOEXE ,2 


0 


© 
wow ol 


©e*\ecqedcwqedcwaec¢ececec€&cé&e 
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DISKQUOTA 18.80 Sep-19 :38:38 AX-11 Bliss-32 v4.0-74 P | 
4 Fa 12-808- 138 93:7 746 DISKO, $RC1D 1 SKQUOTA.B3 31 _ (35 
00000000° 00028 ; iMSS- INDEX 
ADDRESS U.21 é 
00000000' 0002c M36. x 
U.24: ADDRESS U.23 : 


00000000" 00030 ;ASG_ INDEX 
U.26 ADDRESS U.25 : 


00000000" 00034 EASGLINDEX og v.27 
00000000" 00058 68s Nooness v.29 : 
00000000" O003C -ASG INDEX, : 
masncentinanted 8° ames Oe : 
00000000" 00044 -MSG-INDEX 3. : 
00000000" 00068 ZASGQINDEK ee 37 2 
eesemed inated + ‘sage MESS : 
00000000" 00050 -ASG_INDEX : 
00000000" 00054 :AS6 INDEX : 
00000000° 00058 EMSG_INDEX U.45 2 
00000000" O00SC :HSG_INDEX : 
00000000° 00060 ;ASG_INDEX : 
00000000' 00064 :MSG_INDEX : 
esenedinennd §) ag SOE : 
00000000' o006C jRRG INDE ess u.55 2 
00000000" 00070 | Se Oe U.57 : 
00000000" 00074 -ASG_INDEX eo 2 
00000000" 00078 ;ASG_INDEX 7 
U.62T ADDRESS U.61 


00000000" O007C ;MSG_INDEX 
U.64: ADDRESS U.63 
00000000" 00080 ;MSG_INDEX 
U.66? ADDRESS U.65 : 


-PSECT S$MSG_TEXT,NOWRT ,NOEXE ,0 
00000 MESSAGE _TEXT: 


LKB OO 
2¢ 00 00000 ;mSG_TEXT 
ah -BYTE 0, 44 : 
20 51 4B 53 49 44 25 909 “ASCII \&D1SKO-\ ; 
“ASCII = \FN\ : 
2 Babe ASCII \-\ : 
52 52 45 SF 46 4D 4 ASCII \CMD_ERR\ : 
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: 3 ; bige. 
219: DISKQ.SRCIJDISKQUOTA.B32;1 


\ 
{/0 error reading commands\ 


\!AD\ 


oo 
\ambiguous command! /!AD\<92>\! AD\<92>\!\ 


‘. >. 
\ambiguous qualifier! /!AD\<92>\!AD\<92> 


f--- 
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52 45 54 49 4E 


1b-Sep-1984 23:38: 
12280 =138c 93:38: 


00138 Msg. TExT 
U.135: ° 


BYTE 
13A ASCII 
14 ASCII 
14 ASCII 
14 ASCII 
14 ASCII 
148 ASCII 
15A 

312 ASCII 
16C gMsg. text 
U.15. BYTE 
Og ASCII 
01 ASCII 
$178 ASCII 
17 ASCII 
017F ASCII 
0181 ASCII 
00190 
0019D -BLKB 
QO1A0 ;MSG_TEXT 
U.17: BYTE 
OO Ag ASCII 
QO1A ASCII 
QO1AA ASCII 
Bolen ASCII 
0181 ASCII 
00183 ASCII 
001C2 
00101 
00106 -BLKB 
001D8 ;MSG_TEXT 
U.19: BYTE 
Q0O1DA ASCII 
Q01E1 ASCII 
pies ASCII 
O1E ASCII 
O1EB ASCII 
O1ED ASCII 
OO1FC 
boSer -BLKB 
O20C ;MSG_TEXT 
U.21: BYTE 
8 of ASCII 
1 ASCII 
0 18 ASCII 
021 ASCII 
8 1F ASCII 
1 ASCII 
A .BLKB 
C Ms TEXT 
U.25: BYTE 
if ASCII 
4 ASCII 
8 ASCII 
024 ASCII 


38 AX=11 BL igs=32 V4.0-74 
46 DISKQ.SRCIDISKQUOTA.B32;1 
6, 50 

\$01SKQ-\ 

\E\ 

\=\ 

\SYNTAX\ 

 % 


\Command syntax error! /!AD\<92>\ !AD\<92> 
\!IAD\ 

0, 47 

\E£D1SKQ=\ 

\E\ 

\=\ 

\NONLOCAL\ 

\device is not a local device\ 


\e\ 
— 


\logical name is recursively defined\ 


~~ 
. 


\no device currently selected\ 


wa 


ATERR\ 
rror creating quota file\ 


SAA AON 4A AA ZS “O 


roe 
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7A 69 OC 61 
65 6C 


71 20 67 6€ 
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74 
20 


20 
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48 


53 


yScheo-1996 25:38 


i : $ EH 
00 8 ansg. tent 
25 2 peti Nt 
a rat 
a reat 
é§ : 4 “ASCII 
00 0029¢ aMSG_TEXT, 
25 0 3 ais ee 
4 A “ASCII 
2D 00 ag “ASCII 
41 Q02A “ASCII 
2C OO2AD “ASCII 
66 : “ASCII 
90 00 ee angg Text 
25 00 < Reais 
45 0020 “ASCII 
20 00 D SASCII 
44 0020 TASCII 
$6 bose “ASEH 
6C OO2EF 7 
00 O02FC gMSG.TEXT 
25 o02rE ni ie 
at 
1S AH 
$6 : oF “ASCII 
00 9 4 sng. text 
U.35: BYTE 
2 0 2 “ASCII 
28 O33A ASCII 
e¢ 4 ASCII 
e 4 “ASCII 
4 63 
00 9 $8 angg_text 
et ARH 


38 Ax-11 Ol igsaze v4.0-74 
46 DISKQ.SRCIDISKQUOTA.B32;1 
Ne ™ 

\error initializing quota file\ 
3 

0, 42 

\$01SK0-\ 

\E\ 

\e-\ 

_—— 

\error closing quota file\ 

0, 44 

\$D1SKQ=\ 

\E\ 

\-\ 

pee rea 

\failed to enable quota file\ 
2 

0, 46 

\£D1SKQ-\ 

\E\ 

\-\ 

~~ 

\failed to disable quota file\ 


0, 47 

\SD1SKQ-\ 

\E\ 

\=\ 

\ADDERR\ 

\failed to add quota file entry\ 


“27 Z7o OW; 
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53 
£p1SKQ-\ 
E\ 


\failed to remove quota file entry\ 
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18. ep-1984 23:38:3 AX-11 Bliss-32 V4.0-74 a 6 
1h- ett 93:78:23 DISKO. RCTDISKOVOTA. BSS; 1 — (8 
D sASCII \e\ ; 
$52 52 45 59 466 49 46 sf i i “ABELL \MOD IF YERR\ : 
66 69 6F 6D 20 6F 74 20 64 65 9 61 i 7 “ASCII \failed t if ti \ : 
g § $5 2 8 Sf 25 8? St b? 9S 9 i § ab wt cetcPonmant. Magen lew papi : 
r my ter BLKB 1 . 
33 (00 AO msg. Text 
U.37: .BYTE 0, 51 : 
20 51 468 53 49 464 25 n2 ASCII \Ep1SKa-\ : 
AA ASCII \e\ : 
$52 52 465 4E 469 4D 41 58 iy AB ASCH \EXAMINERR\ : 
0 65 6E 69 6D 61 78 65 20 76 6F 6E& 6E 61 B “ASCII \ t i ta file entry\ : 
eo $2 S $8 $8 83 22 88 8 fo of SE SE OS ti cs ee ae ee ee 
0303 -BLKB 3 c 
2F 03 0030 msg. Text 
.397 .BYTE 3, 47 ; 
20 51 468 53 49 464 25 0 DA ASCH \EpisKa-\ : 
2D 0 E “ASCII \e\ : 
45 53 55 & 49 0 E “ASCH \INUSE\ : 
21 20 73 61 68 20 50 57 4F 21 2C 57 GF 3 55 80 EA [ASCII \C!0W,!0W) has !UL blocks in use\ : 
3 75 20 6 69 20 7 63 6F 6C 62 20 4¢C 55 003F9 : 
65 00408 : 
00409 .BLKB 3 
27 00 0040¢ aMsG.t ae A 
2D 51 4B 53 49 44 25 00406 ae “ASCH \EpISKa-\ : 
20 0416 “ASCII \=\ : 
52 52 45 4B 43 oF aC O41 ASCH \LOCKERR\ F 
20 68 63 6F 6C 20 6F 74 20 64 65 $6 69 61 66 904 5 “ASCII \failed to lock volume\ : 
65 6D 6C 6F 76 04 f aon : 
2B 00 Soe gMsg.text . 4 
2D 51 4B 53 49 44 25 00463A ‘ASCII \&DISKQ-\ : 
4 0441 2 scl] \E\ 
52 52 465 4B 43 GF 4C s $ beds ASCII \UNLOCKERR\ 2 
63 6F 6C 6E 75 20 6F 74 20 64 65 6C 69 61 a3 Bede “ASCII = \failed to unlock volume\ : 
65 6D 75 6C 6F 76 20 68 450 ae Te : 
38 00 00468 gMsg.text he 
2D 51 4B 53 49 44 25 004GA “ASCH \EpiSKa~\ 
20 Bey ASCII \- : 
53 4C 4F 56 58 41 4p 473 “ASCH \MAXVOLS\ 
20 73 61 68 20 74 65 73 20 65 6D 75 6¢ gf $f 47C “ASCII \volume set has too many volumes to handl\ ; 
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1bobeoctgee 25:38:58 
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Ve 


oO 
= 
SoooCoo 


Sosooo 
PRERERS 
FLS 


A 
ASCII 
4A -BLKB 
sms. Text 
U.47: BYTE 
¢2 GAA ASCII 
é 4B) ASCII 
20 4B ASCII 
41 4B ASCII 
C 4BC ASCII 
4BE ASCII 
4CD 
§ 40 
8 et -ASCII 
00 O04FO ;mSG_TEXT 
U.4 -BYTE 
2 pare ASCII 
a O4F ASCII 
2D QO4FA ASCII 
41 Q04F ASCII 
2c $828 ASCII 
$8 05 ASCII 
BpeaG 
00 00520 ;msG_TEXT 
25 005 g ASCII 
45 005 ASCII 
g8 OS2A ASCII 
1 00528 ASCII 
ec 005 ASCII 
49 005 ASCII 
6E 0054 
beet BLKB 
01 554 ;MSG_TEXT 
U.5 : BYTE 
2 0556 ASCII 
4 0550 ASCII 
28 O55E ASCII 
4 O55F ASCII 
¢$ 0568 ASCII 
4 S288 ASCII 
6— 00579 
8 008 
ASCII 
1 2 
2 A4 AMSG. TEXT 
U.55: .BYTE 
; A6 «ASCII 
AD ASCII 
4 AE ASCII 
AF ASCII 
£$ 88 ASCII 
BA ASCII 
f C9 
3 
1 005€ ASCII 


38 AX-11 BL Ligss32 v6 0 743. 
DISKQ.SRCIDISKQUOTA.B32;1 

\e\ 

3 

1, 70 

\S01SK0-\ 

\E\ 

\=\ 

\ACCINDEXF\ 


\failed to access index file on relative \ 
\volume !UW\ 

0, 46 

\£01SKQ-\ 

\E\ 

\-\ 

\ACCQFILE\ 

\failed to access quota file\ 

0, 48 

\£01SK9-\ 

\E\ 

\-\ 

— 

\f/0 error reading quota file\ 

2 

1, 78 

\£01SKQ-\ 

\E\ 

\-\ 

\BITMAPERR\ 

\f/0 error reading index file bitmap on r\ 
\Nelative volume !UW\ 

2, 76 

\£01SKO-\ 

\W\ 

\-\ 

\HEADERERR\ 

\f/0 error reading file header ‘UL on rel\ 


\ative volume !UW\ 
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09 
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20 


4F 


d 11 
15-Se 
14-Se 
57 Fi 
re .BLKB 
00 F sMgg. Text 
257: BYTE 
¢2 F6 ASCII 
4 FD ASCII 
20 FE ASCII 
40 FF ASCII 
edd ASCII 
of ASCII 
6F $e ; 
62A -BLKB 
01 0062C pMsG Text 
U.59: BYTE 
¢ 06 4 ASCII 
4 06 ASCII 
20 006 ASCII 
48 006 ASCII 
2C 00640 ASCII 
6 0642 ASCII 
6 0651 
6 0660 
6C O066A ASCII 
00672 -BLKB 
01 00674 ;MSG_TEXT 
U.61: BYTE 
25 00676 ASCII 
45 0067D ASCII 
2D 0067E ASCII 
48 00675 ASCII 
2c See ASCII 
$8 068A ASCII 
BReR? 
G1 006A8 RSG TERT 
U.65: BYTE 
22 QO6AA ASCII 
4 0681 ASCII 
20 068 ASCII 
4 068 ASCII 
ee 06BC ASCII 
O6BE ASCII 
6 Roce 
¥e3 .-BLKB 
01 DC ;MSG_TEXT 
U.65: BYTE 
e reg) ASCII 
4 6E ASCII 
28 oc8 ASCII 
4 6E ASCII 
rth ASCII 
of ASCII 
0701 
-PSECT 
00 00000 P.AAC: .BYTE 


pa19be f2:19:06 — EptsKo.SRCSDISKOUOTA.B39;1 


\=\ 
\MEMALLOC\ 
2 

1, 68 
\S01SKO-\ 
\E\ 


\-\ 
\HOMEBLOCK\ 


\failed to read home block on relative vo\ 


are 'UW\ 


\HELP_INIT\ 

\failed help Library index init\ 
1, 47 

\Sp1SKQ=\ 

\E\ 

\=\ 

\HELP_OPEN\ 

\failed to open help library\ 


\failed to access help text\ 


SPLITS,NOWRT ,NOEXE ,2 


\Cannot allocate sufficient memory\ 
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PORN TMNATR OM CINTA 
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Shee 4:78:28 


-BLKB 
001CO KEY_vECTOR: 


LK 
OO1F8 KEY_INDEX: 

-BLKB 
OO1FC ZERO_END: oe 
OOIFC SRCREC_DESC: 


AX=11 BLiss-32 v4.0-74 
D1ISKG.SRCIDISKQUOTA.B32; 1 

4 

56 

4 

0 


LONG 32 
80500 “ADDRESS SRC_REC 
DSTREC_DESC: 


LONG 32 
0000 “ADDRESS DST_REC 
$o0000e0 90506 OF 1B_DESE. raleogg 
90000000" 00 310 “ADDRESS QUOTA_FIB 
00000002 00000008 00214 TPARSE_BLOC 
9034 “BLKB 28 
31 38 53 59 53 2— 41 5G 4F 55 51 ; P.AAB: “ASCII \QUOTA.SYS;1\ 
00000008 09 44 P.AAA: LONG 11 
00000000° 00248 “ADDRESS P.AAB 
UIC_VALUE= SRC_REC+4 
PERA_VALUE= SRC_REC#+12 
OVER" VALUE= SRC"REC+16 
QF ILE _NAME= poAMA 
UPCASE_TABLE= AAC 
SEXTRN L188" SYNTAXERR, LIBSGET_INPUT 
“EXTRN LIBSTPARSE, SYSSDCLEXH ~ 
-PSECT SCODES,NOWRT,2 
.ENTRY DISK AyorA- Save R2,R3.R4.R5,R6,R7.RB,R9,- 
58 h 83800889 06 MOVAB 7 R11 
0000000 ' VAB COMMAND DESC, R10 
MOVAL 9$, (FPY 
00000000v er CALLS #0. USE _DEFA 
if AA 00000000v | 6 vA exit HARDLER. EIT HNDLR_DESC+4 
1¢ MA 20 8 VAB extr -HNOER RpESteic, EXiT_HNDLR_DESC+12 
PUSHAB EXIT"HNDLR DESC 
000000006 00 8 CALLS #1, SYSSDCCEXH 
A 8s 18 MOVZBL #182, COMMAND_DESC 
00000000' PUSHAB BAAD 
000000006 99 CALLS a, LIBSGET_INPUT 
VL = RO, STAT 
1 BLBS STATUS, 
0001827A BF CMPL TATUS, #98938 
BEQL $ 
PUSHL STAT 
00450000 PUSHL #4521984 
68 CALLS #2. LIBSSIGNAL 
00 00064 2%: BRW 


Page 30 


(6) 


F ULSSAS 


eo 
o 
um 


<9 


Be Se Se Se Se Se Se Se Ge Se Be Se Se Se Se Se Se Fe Fe Se Fe Se Se Se Ge Se Se Se Se Ge Ge G~ Se Se Se Se Se Se Se Se He Se Se Se Se Se Se Se Oe ee SESH Se Se Se Be ae 


11 


DISKQUOTA 15-Sep-1984 23:38:3 AX-11 Bliss-32 v4. Pa 31 
a 14 ~3ep-19 93:38: i DISKQ.SR Oh eer eeovet tas B32; _ (6) 
5 A 7D 7 3%: mOvO COMMA DESC, 3 0614 
00000000" EF 00 ef i$ 2 MOVTC twos #0. UPCASE TABLE, R6, (R7) 3 gets 
58 $ 1 ADDL R6, P : 061 
§ FF AB } $: CMPB stip), #32 : $6i$ 
4 if BNEQ : 
fe i ECL is ; 0618 
A 58 5$: SUBL3 oR COMMAND _DESC + 0619. 
00c4 =F 80 6E - bo Se moves = #0. (gps #0, riba, ZERO_AREA ; 0621 
0108 CA 6A 70 mova COMMAND DESC, TPARSE_BLOCK+8 : 9632 
900000 ' EF OF PUSHAB ABLE ; 4 
00 90 ' €F OF PUSHAB STA ATE TABLE : 
1 A oF PUSHAB SAREE BLOCK 3 
000000006 9 is CALLS #3, LIBSTPARSE : 
D MOVL RO ih : 
5 £ BLBS = STATUS, + 0625 
000000006 &F 3 D} CHPL STATUS, #L1B$_SYNTAXERR ; 0628 
59 00450030 YF 06 MOVL #4522032, STATUS + 0629 
CA p 6$: MOVL —« TRARSE BLOCK*16, + 0637 
10C DACO OF PUSHAB OTPARSE BLOCK#12L RO) r 
7E 0108 CA 50 ¢3 SUBL 3 TPARSE BLOCK*8. -(SP) : 
0114 cA 0D PUSHL Tpkase MBLOtK® ; 
RB PEt {Suuo.oesc : 
7E 0116 «CA 4 AA ee SUBL COMMAND “DESC #4, TPARSE_BLOCK*20, =(SP) : 
6B jy PB eee Bt Mfessicum 
03 26 «AA 63 (0 78: BBS #1. CLEANUP_FLAGS, 8$ + 0640 
FF48 31 BRW 1$ : 
50 01 00 oy MOVL #1, RO ; 0646 
0 9$: :WORD Save nothing : 0374 
Bs Hit, ie : 
7E 04 aC » vO. 4 (AP), =(SP) : 
00000000v EF 0 FB CALLS #3, MAIN_HANDLER ; 


3; Routine Size: 261 bytes, Routine Base: $CODE$S + 0000 


=" 


et 
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11 
DISKQUOTA Se -1984 23:38:38 
vOe 1a-80p-1986 43:49:46 
; 653 , 2s 
: ? ¢ r } } Minor action routines to helm out with parsing 
oF ' 
: 638 § ; Give invalid command status 
; 661 5 ROUTINE INV_COMMAND = 
; 68 > 2 BEGIN 
; o¢) 4 TPARSE ARGS; 
; P0660 ¢ ERREXIT ((JF_ .TPARSE BLOCKCTPASV_AMBIG] 
; 66 P 0661 THEN DSKO$_AMB_CM 
> 668 P g ELSE DSKQS~INV-CMD) 
i 6 i P 0665 - TPARSE BLOCK TPASL fOKENPTRI = . COMMAND _DESCC1), 
; 671 P bees TPARSE_BLOCKCETPASL_ TOKENCNT), 
; 67 P 0666 . TPARSE 6 OCKETPASL -TOKENPTR 
; 67 P 066 - TPARSE-BLOCKLTPASL STRINGCNTI, 
; 67% p 0668 , TPARSE-BLOCKLTPASL-STRINGPTR 
: 676 0670 1 END; 


0004 00000 INV_COMMAND: 
WORD 


52 00000000" EF 9E s4't4 MOVAB 

7E 08 AC 70 000 MOVQ 

7E 10 AC 7D 00000 MOvVa 

6 43 011 PUSH 

7E 14 =AC 62 C¢ Bis SUBL 
08 06 AC €9 st BLBC 

0045001 F 0D 835 PUSHL 

6 11 4 BRB 

00450008 F DD 00024 1$: PUSHL 
000000006 00 7 £8 3 A 2%: CALLS 

04 00031 RET 


; Routine Size: 50 bytes, Routine Base: S$CODE$ + 0105 


677 mn UY 
678 0678 1! 
67 7 : Give invalid switch status 

1 72H 

; 6 : ROUTINE INV_SWITCH = 

7 BEGIN 

5 4 TPARSE _ARGS; 

68 P ai ERR_EXIT (CIF .TPARSE_BLOCKCTPASV_AMBIG) 


AX-11 Bliss-32 v4.0-74 
SRC ID A 53351 


DISKQ. DISKQUOTA. 


Save R2 

OMMAND_DESC+4, R2 

(TPARSE BLOCK), =(SP) 

6(TPARSE BLOCKS, -(SP) 
COMMAND _ + 
COMMAND DESC+4, 20(TPARSE_BLOCK), =(SP) 
G(TPARSE BLOCKS, 1$ 
#45220 
#4521992 
#7, LIBSSTOP 


: 0669 


; 0655 


0670 


as 
i 


<9 


} 12 . . es = 
‘byseayorA 1$-Sep-1964 25:58:58 yancty BLiss=32 v4.0-762 | Page 35 


; P 06 3 THEN Dskas_Ama_a QUAL 

; 6 P 06 ELSE Ska INV" QUAL 

; 6 P 0684  TPARSE_BLOCK( TPASL_ TOKENPTRI - .COMMAND_DESCC1), 
: 691 P 0685 COMMAND DESC 

; 69 P 06 6 - TPARSE BLOCK TPASL_TOKENCNT), 

; 69 P 06 ; TPARSE BLOCKETPASL ~TOKENPTR 

3 694 P 8 - TPARSE BLOCKLTPASL -STRINGCNT 

; 695 P 06 - TPARSE -BLOCKLTPASL-STRINGPTR] 

; 696 690 

: 697 0691 1 END; 


0004 00000 INV_SWITCH: 
WORD 0676 


, Be : 

52 00000000" EF 9€ 9002 MOVAB ea ; 
7E 08 AC 7D 0000 MOva CTPARSE Per ocK’S Re sp) + 0690 

7E 10 AC 70 00000 MOva 6(TPARSE BLOCKS, -(SP) : 

& Dp Oo14 PUSH COMMAND DESC +4 ; 

7E 14 ac 62 C 00 13 SUBL MMAND~DESC +4 20( TPARSE _BLOCK), =(SP) : 

0 06 AC €9 0001 BLBC GCTPARSE BLOCKS, ; 

00450020 8F DD 9001¢ PUSHL #452201 ; 

06 11 000 BRB ; 

00450018 8F DD 00024 1$: PUSHL #4522008 : 

000000006 00 07 FB O002A 2$: CALLS #7, LIB$STOP ; 
04 00031 RET + 0691 


; Routine Size: 50 bytes, Routine Base: S$CODE$ + 0137 


: 698 0692 1 

; 699 06935 1! 

3 one oe i ! Save the HELP key descriptor in the key descriptor vector. 

; 70 06 1 

; 70 0697 1 ROUTINE SAVE_KEY = 

3; 706 0698 1 

; 705 99 BEGIN 

3 i 00 

3 Ad4 44 ift*- INDEX LEQ (MAX_KEYS = 2) ! check for too many keys 
$a 7 

; 710 Ay ates -KEY_INDEX) = ,TPARSE_BLOCKCTPASL_TOKENCNT]; 

: 71 705 Y-VECTORE .KEY- INDEX*1 = ,TPARSE_BLOCKLT°ASL_TOKENPTR); 

: art . $ x INOEK = ,KEV_INDEX+ ! Increment key. INDEX 
3: 716 708 1 

: 715 709 {1 END; 


0004 00000 SAVE_KEY: 
«WORD Save R2 ; 0697 


12 
| DISKQUOTA 1$. Sep-19 :3 it AX-11 Bliss-32 V4.0-74 Page 34 
“Woe=000 14- 30571 $8e 1333 DISKQ.SRC D1SkQUOTA.B3 31 = dF 
3 00000000" EF of 4 MOVAB mee INDEX, R ; 
5 Dd 4 MOVL YAINDEX, R ; 0701 
D1 $9 ¢ CMPL RO, Wie ; 
F 14 OF BGTR 3 
c8 ate $f Ae 0D 1 MOVL TPARSE _BLOCK+16, KEY: ; 0704 
CC Aes Age 0 1 MOVL TPARSE BLOC ayees TORS4 R03 : 0705 
g 8 C 10 ADDL2 eee KEV. INDEX ; 0706 
B $9 1$ MOVL 2k 0709 
4 00 RET 


; Routine Size: 36 bytes, Routine Base: SCODE$ + 0169 


<o | 


= 


12 
sues" NERESHME GE REEE UMSLLANESSTRIGARTS,, OO 


GLOBAL ROUTINE USE_DEFAULT : NOVALUE = 


—~— 


SOONAOVE WN —O OONOUES WN O0O@~ 


'e¢ 
' 


; Functional Description: 
This routine causes a USE SYSSDISK: command to be executed, to 


set up the channel to the default disk. if it fails, no error 
messages are output and the channel is simply left unassigned. 


—s + —s 4 tt 


Calling Sequence: 


te tt te tt i eS be be Se i St | 


the TPARSE control block and call the USE action routine. 


ENABLE DEF _HANDLER; 

TPARSE BLOCKETPASL _ TOKENCNT = ZCHARCOUNT (*SYSSDISK:'); 
TPARSE_BLOCKCTPASL-TOKENPTR) = UPLIT BYTE (*SYSSDISK:"); 
CALLG TIPARSE_BLOCR, ACT_USE); 


END; ! end of routine USE_DEFAULT 


s 710 #1 

: aD 

; 7 : 1 

3 716 «4 

ae di 

; ne yi 

; $7 8 1 

| a3 

; 721 1: Standard 

3 722 1! 

3 7 5 1 ! Input Parameters: 
| EMD iii 

; 0726 1 | Implicit Inputs: 
$ 87 ; : . none 

: ; 0729 1 ! Output Parameters: 
7 Ha She 

; 3 Q7 ; 1 i Implicit Outputs: 
GR A BE ee 
74 0735 1 | Routines Called: 
eo ac eo 

: 745 0738 1 | Routine Value: 
oe eo 

: 748 0741 1! Signals: 

: 586 b7e8 | anni 

: 75% O74 i Side Effects: 

3 P36 745 1! none 

OP 9766 1! 

Bie Hi 

; 736 749 ; BEGIN 

: 758 751 ? BUILTIN 

3; 759 Pg CALLG; ! Linkage to action routines is CALLG 
: 760 134 

; 76 4 ! Enable the local condition handler to swallow error signals. Then plug 
; 7 

3 7 

3 7 

s 7 

3 7 

; 7 

3 7 

mY 


MEW —OOO~nOu 


PIAOOOOIMIMN 


7 


_ 


A A a tN Rai en tll Sl eh a a cc i a a a et his ee he 


: 
aes" 


| 
| 
| 


; Routine Size: 


52 bLytes, 


3A 48 53 49 44 26 53 59 53 00110 P.AAF: 


52 00000000" 
5 owogge 
04 33 00000000° 
00000000v_ EF FO 
7E 04 

QO00V0000V EF 


Routine Base: 


ait 
Pf 


EF 
A2 fA 


SCODES + 0180 


OOoooocoo 


SSSsss 
ee eee ieioioieloielq) 


18-5 
14°$ 


Wonofonosnon — 
WOW from 
—t 
a 


3Be §2:19:08 


-PSECT 
ASCII 


«PSECT 
-ENTRY 
AB 


Ax-11 Ol igs se V4.0-74 
DISKQ.SRCIJDISKQUOTA.B32;1 


SPLITS,NOWRT,NOEXE,2 
\SYSSDISK:\ 


SCODES,NOWRT ,2 


USE DEFAULT, Save R2 
TPARSE BLOCK*16, R2 


, (FP) 
#9, TPARSE_BLOCK+16 
P.AAF, TPARSE_BLOCK+20 
TPARSE_BLOCK, ACT_USE 
Save nothing 

=(SP) 


SP 
4(AP), =(SP) 
#3, DEF_HANDLER 


roe it 


Bete Se Se Se Se Se Se Se Fe Se Se Se 


rad 


<9 


F 12 
DISKQUOTA 15-Sep-1984 23:38:38 AX=-11 Bliss-32 V4.0-74 e 7 0 
Ve ye-8eb219he F3ii906 — EbTsxa. Saciorseovorn.o%9,1 aoe 3) 


GLOBAL ROUTINE DEF HANDLER (SIGNAL, MECHANISM) : NOVALUE = 


ee 


~ 
oO 


Functional Description: 


This routine is the condition handler for the preceding routine. 
It simply unwinds the stack on any signal. 


Calling nt mm ty 
standard 


Input Parameters: 
none 


DONO MVE WI “OOO NOVE 


COCD CO COCO COCO OOOO NIN NNN 


F 1 3 
3 1 3 
3 1 3 
5 1! 3 
3 + 3 3 
E 7 1! ; 
H 7 1! $ 
: 7 . 7 é 
; 7 1! $ 
; 7 1! 3 
: 7 1! 3 
é 7 14 $ 
F} 7 1! $ 
3; 7 7 1! 3 
; 788 7 1! F 
: 789 7 1! Implicit Inputs: 3 
; 790 7 1! none 3 
: 791 4 1! 3 
; 79 7 1 ! Output Parameters: 3 
hae ba Pree 7 
: 795 0787 1 | Implicit Outputs: : 
: ree 4 : none : 
: 798 $750 1 ' Routines Called: : 
; 799 0791 #1! non é 
; 800 1443 1! 3 
; 801 795 1 ! Routine Value: s 
: 80 0794 1! none : 
; 8 Beye 1! 3 
; 804 136 1 ! Signals: : 
; 805 0797 1! none 3 
; 806 0798 1! : 
3 st 0799 1! Side Effects: i 
3 08 0800 1! none 3 
; 809 0801 1! 3 
3 10 4 1 !e- 3 
3 11 60 1 3 
3 \¢ 04 BEGIN é 
; 81 rit 3 
3 14 Be MAP $ 
; 815 080 SIGNAL : REF BBLOCK, ! signal vector 3 
3 1g 0809 MECHANISM : REF BBLOCK; ' mechanism vector : 
: 818 8 10 ; 
: ¥ bata SUNWIND (); : 
; $4 O18 1 END; ! end of routine DEF HANDLER 3 
| .EXTRN SYSSUNWIND : 
0000 .ENTRY DEF_HANDLER, Save nothin : 0766 F 

760 90 BoB 09 éLrRa. = (SP) “ ° : B11 ; 

000000006 00 02 FB CALLS #2, SYSSUNWIND 3 g 

04 RET ; 0813 3 


SES , SSS ae Bs 


ee ee ee eee ee ee ee eee ee ee ee ee ee Oe ee ee ee ee ee ee ee ee ae ee ee ee ee ee 


DASKaURTA WSStortgge 25:58:58 yayetd euigsc se we oe Page 38 


; Routine Size: 12 bytes, Routine Base: SCODE$ + 01C1 


12 
byseayOTA 1ErSeertghe 3:RBEB YANCTT kings 82 yao 


FP 
VFN 0 OVO ANS OOOVNOUN Ew 


‘G0 09 OD CD Cp Gd CD CD CP CD CD CD CD 


90000 
IVP ae 
OOM 


‘Gd Od Cp Cd Gd Cd CD OD CD 
PAMAMAMMII 
OONOUS wh — 


3 


SEEZE 


GLOBAL ROUTINE ACT_USE = 


ee 
' 


Functional Description: 


—) > 5 » 4 _a 


MEWUN $0 COON VE Ut "OOO NOUSE 


This action routine processes the USE command. It assigns a channel 
to the specified device string. 


Calling Sequence: 
standard 

Input Parameters: 
none 

Implicit Inputs: 
none 

Output Para..eters: 
none 


Implicit Outputs: 
none 


Routines Called: 
none 


ODOOQOOSGOOOSCOOSGSOSO OOOO GOSCOSOOOOCOOOO SOS OOOOOOOCoOO 


LOCAL 
! general string pointer 
STATUS ' general status value 
é escriptor of logical name to translate 


40 

41 Routine Value: 

9h} none 
84 
844 Signals: 
845 none 
5c Side Effects: 
848 none 
849 
850 -_ 
833 
333 
Bee LITERAL 

32 BUFFER_LEN = 64; ! string buffer length 

3 

58 

59 

: VECTOR $4- 
1 RESULT : VECTOR ! descript r of translated name 
é STRING_BUFFER VECTOR CBUFFER_LEN, BYTE); ! string buffer (obviously) 

TPARSE_ARGS; ! declare TRARSE argument List 


w 


! Get the device name string and attempt to go Logical name translation. 

! We iterate on logical name translation until the service returns SS$_NOTRAN. 
! Perform device name extraction by using only the part of the logical name to 
! the left of the colon (if any), also checking for node names. 


OM 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 


870 


63351 


roel 


Be Be Be Oe Oe Be Oe Se Se Se Se Be Se Ge Se Se Se Se Se Se Ge Se Se Se Se Se Se Ge Ge Ge Se Se Se Ge Se Ge Se Ge Se Se Se Se Se Se Se Se Se Se se ee Se Se Sete Se Seas 


DISKO. SRCJDISKQUOTA. 83 31 (10) 


12 
hon TA 15-Se0-1984 $3: 38:38 AX-11 OL igenze V4.0-7 Page 40 


g q ! : 
; ‘ 74 IF . CHANNEL NEQ 0 F 
; 7 THEN SDASSGN (CHAN = .CHANNEL) : 
: : o? CH L = 0; : 
; 8 RESULT 0} = BUFFER_LEN; : 
; 28 RESULTC1) = STRING BUFFER : 
3 7 NAME _D peste oy = WORSE Bt Ocec TPasL _TOKENCNTI; ! get initial logical name 3 
r 9 0 NAME-DESCL1) = STRING eerie FER; 3 
; 90 1 CHSeOPY Y (,TPARSE_BLOCRCTPASL_TOKENCNT], .TPARSE_BLOCKCTPASL_TOKENPTR], 0, .RESULTCOJ, .RESULTL1}); : 
; % ¢ If BEGIN : 
: 89 4 3 DECR N FROM 10 TO 1 DO ; 
: 894 5 4 BEGIN : 
; 895 6 4 P = CHSFIND_CH (. NAME _DESCCOJ, .NAME_DESCC1J, ; 
5 38 4 IF NOT CHSFAIL (.P 3 
3 9 : 4 THEN $ 
: 898 8 BEGIN F 
: 899 0890 IF Po ps NAME 50 pes¢C1] 'L§SU .NAME_DESCLO] - 1 ; 
; 900 0891 AND. EQL : 
; 901 0898 THEN. ci Ratt. <SKOs _RONLOCAL) ; ; 
3 90¢ O89 NAME .P = TNAME_DESCE1); ; 
304 0895 iz 
; 905 0896 4 IF _CHSRCHAR (.NAME_DESC{1]) EQL ‘_' : 
; 906 089 4 THEN EXITLOOP 0; : 
: 908 P 0899 4 STATUS = $TRNLOG (LOGNAM = NAME _DESCCO}, : 
; 909 P0900 4 RSL LEN = NAME DESC 0), ; 
3: 910 0901 4 Sibu F = RESUCT(O)); 3 
; 911 o9ce 4 IF .STATUS EOL SSS'NOTRAN THEN EXITLOOP 0; | ; 
3 gg 990 4 IF NOT .STATUS THER ERR_EXIT (.STATUS); : 
i ig 0905 $ END 
; 915 0906 THEN ERR_EXIT (DSKQ$_NOTRAN); : 
: 17 tos RESULTCO] = .NAME_DESCCO); ; 
; 919 10 ! Now assign a channel to the device name. ; 
im OB YG! : 
: 9 é 0918 STATUS = SASSIGN (DEVNAM = RESULTCO], CHAN = CHANNEL); F 
; 9 14 If NOT .STA 
: 92% 915 2 THEN ERR_EXIT (.STATUS); 
; 925 18 
: 358 o918 5 
: 928 $919 END; ! end of routine ACT_USE 
.EXTRN SYSSDASSGN, SYSSTRNLOG 
“EXTRN SYSS$ASSIGN 
Biss! .ENTRY ACT Use. Save R2,R3,R4,R5,R6,R7 : 0814 
57 00000000° er” Of 002 MOVAB ChARNES F 
| 


00 


vu 
on 


00 


an 
oa 


el el el ell 
NOSRNecwPOoS oe 


MODOA $0 FPVUMOWOD F§ SO FP OOOOWOS 
FRO NNVOIT®@Owom 


ne 
A 


win & 


OOon 
SSSSSSSSSSSSSSSSSS33333s33333sssesessess 


Vw 
= =O FM Sn mn a WINE WOO MMMMM EMR B OQWUON) S MW STU FP PMOMOM AO 


OOWWMMNO PUN ODM “VI F Pea 
OU MOMS NOS NO TO BVM O99 MO009 SN" 09 19 - © 902-9 oO RmwN99 SNOUT OOO N90 wow 
FOODS DOP 79 C089 VW OW OD BB MBE OW ODOM MM -WUWNNWO FVFPO OMOMyE FWOIWOMM 


SOOOCSOCOOOSSOSOOCOOOCOSCOOOSOOOSOOOSOOSOSOOOOOGOOOOOSOOOOOOGOOOOOOOOOOOOo 


aa 1 $3: 38: i AX-11 BL A s-32 V4.0-74 


DISKQ.SR 
LIBSSTOP, spe 
te RO 


DISKQUOTA.832;1 


SYSSDASSGN 


am att eR RESULT +4 

6(TPARSE SE »BLOCK) NAME DESC 

TA CTPARSE 8 BLOCK) SOOT TPARSE BLOCK), #0, 
RESULT. SRESU ULT+4 

m8: NAME_DESC, @NAME_DESC+4 
R1 

Ri, P 
85 

NAME _DESC+4, P, af? 
#1, RANE DESC, 


Ld 


(P), #14906 


RO, 
TATUS, #1577 

STATUS, 6$ 

STATUS 

#1, LIBSSTOP 

N 

#4522048 


#1, LIBSSTOP 
E DESC. RESULT 


=( 
ae SYSSASSIGN 
RO. STA Tys 
STATUS, 

SI U 
‘ 1, LjBsstop 
ie 


Nie Site | tr 
suena" NEREEISR GEHEREWSISLLAASSHERMEB ls 
|; Routine Size: 210 bytes, Routine Base: SCODES + 01(D 


R885. 1 


s-32 v4 
DISKQUOTA.B 


j 


A TA 


OOS 6S Oe OS HS HS HS OS HS OS OSS ES ES HS ES ES ES ES HES FS ES ES ES ESTES FS HS CESS HEHE HS HSS SESH HESS SS CRS SEHD 
ee 


zea 
-oO 
ov 
ze 
wrt 
—e 
[&] 
e v2 
= Au 
ro -_ 
ao 
w *. aw 
e ~ oe ag 
ae ~~ ce io 
od ~o Vvaco"g 
ry) .~ -- =O 
. ~ ~—=% 
v cu <—t « 

2oO ew oOo a 
~ ow + P| 
=e om Sam + ~ 

——w 2 2 
e ot -we = 
wo io —@m «+ 
c a ~xr£aa 4 
«e ew it 1: 4 3 

~o Le 4 - 

o ry «a 

as oe ~~ ~ 
ve oo —=xX ts “ 

o VO 
us —— eS OM 7 
Ee e ze< 2 
<« — © @ewait — 
uw ~Oo Je a 
OF -—O ~ > c 
w co w~ wo ae 
te Corwwe oa 
rr’) << 
=? -- * -- ire - 
ow o —@ 
ci oll ~—— 
wn = 
~a o ane 
c® =~ 
ow . ~—_J *e 
ea - qo- 
*> ~ ~a> oO . 
—e *e ted 
aw cm ee a — 
ev — < — ms 
- @ a Oo a a 
" evo = of = ea 
cc 
w -— -—@ " “ “ " 
_ c 
<< o s®@ 
w - om 
« -~ te @ 
w a = or - 
4 - c oe . w oe a 
a « os © w °° ue “ ee <t - 
vw vee V . ) e a a] = eon 
a “ ~s cv © o a > CY *° at < 
ee v +" cos 3 a = s oe Q 4 3 
w oa eC a a oe ~ ) § w “” 
Pad co c > e — ron w - >= 
= ~ we @C e®-@® t£@ O88 Ye 88 e® ve y = a = = 
oa @wew we & c « c & 2¢€ c¢ @c = - tas - < 
2 cc ~ @ ft a +e ee o 23 -o io — i. 4 — - 
orvu ow a - - e ec w -c Ss a - a ” 
« oe c v ae v c c ~ wa 
~ om ~ ord b> | to rom - oO 
z ¢ Soe oe Be bon oe ea Oe eS z - » 
~ re 
s 5 @e c € é 2 a °o red od a 3 ~ 3 vy 
- vu _ = - a « " ” e © ws od —4 
za + iw ” —_ ” oS 
OO ewe ow ee lw ew twee lS tS tw lrS Ste rSs@s@resesererereses@r@rereresesesases oa @ a @ a ~ 


~ 
ooo PAHAOABOOD 


Rowman SS ISII SITS PPSSSSSIOCR AKA CSE ee Sesases 


97 


PAOAPPSOOPOOD 


| 
| 
| 
| 
| 


E 


se 


— 
ae 


es 
SEUSS PENS oa oo oe SSS OS POCO SSS SS SESE SESE 
VVVVVD wvovuTT 


a a a ae a a 8 at = ot = = = = 2 


DOOCOOCCOCOSOSOOCOOoOoOoCooooooo 


Weve 


vvv 


me a a a a tk a ot od = = ws ot = 


999 pee 


wn OO 


a 


i: -1 :3 AX-11 Bliss-32 V4.0-74 Page 44 
14-5 at 7 3; 8: if DISKO. SRC ACID Teeougta.ogss1 aD 
Verify that a channel is open. 
fF .CHANNEL EQL 0 
HEN ERR_EXIT tosKos LNODEVICE); 
: Create the quota file. 
QUOTA_FIBLFIBSW_DID_NUM] = FIDSC_MFD; 
QUOTA-F IBLF IBSW-DID-SEQ) = FIDSC-MFD; 
QUOTA“F IBLF IBSW-DID-RYN) = 1; 
QUOTA-FIB FIBSLAGCTLY = FIBSM_WRITE OR FIBSM_NOREAD 
QUOTA-F IB FIBSW-EXCTL = FIBSM~EXTEND OR FIBSA "ALCON OR FIBSM_FILCON; 
QUOTA"FIBCFIBSL-EXSZ2) = 1; 
QUOTA"F 1B F18$8"ALAL IGN) = FIBSC_LBN; 
QUOTA“F IBLF IBSWLOC_RVNJ = 1; 
STATUS = $010W (CHAN = . CHANNEL 
998 FUNC = 10% CREATE OR IOSM_CREATE OR IOSM_ACCESS, 
0 10S8 = 10 STATUS, 
990 Pi = OFTB DESC 
1 Pe = OFILE NAME 
008 PS = CREATE write 
004 If .STATUS THEN STATUS = .10_STATUSCO]; 
i THEN ERR EXIT (DSKQ$_CREATERR, .STATUS) 
B08 o - s o 6 


88 : Write the initial data block and close the file. 
1 . 
it STATUS = $010W (CHAN = , CHANNEL 
1 FUNC = 10$ URI TEvBLK, 
1 lose = 10 STATU 
1 > gFyLe. Bath. 
1 a = 512, 
} A 
LF STATUS THEN 3f. = .10_STATUSCO); 


NOT ,STATUS 
THEN ERR_ EXIT (DSKQS_INITERR, STATUS); 


STATUS = $010W (CHAN - 
= iss SOraceess. 
10 tt = 10_STATUS 


If gStatus,t THEN status = .10_STATUS(O); 
THEN ERR eth (DSKOS_CLOSERR, .STATUS); 
: Now activate the quota file. 


wm ODO UE WP = S ODO UE Ww" O 0O@ 


QUOTA_F IBLF 1B$W_D1D_NUM) = 0; 


dm , 


tT 
| 
DISKQUOTA 18.56 -1984 AX-11 Bliss-32 v4.0-74 Pa 45 
Mb 0b0 y2nee=188e 93: 78:2 DISKO. SRCID1SKQUOTA.832:1 9 td | 
5 1066 1 QUOTA_F IB F 18$4_p1D_ SEQ) = 0: : 
5 1065 1035 2 QUOTA“FIBLFIB$W-OID-RVN) = : 
: 1 § 1 QUOTA"F IB FIBSU_CNTRLEUNC] = *1BSC_ENA_QUOTA 3 
31 1 QUOTAFIBLFISSL“CNTRLVAL) = 0; ; 
: 1 é P 1 8 STATUS = $Q10W (CHAN = « CHANNEL ; 
: 1 Pp 1 FUNC = ios ACPCONTROL, ; 
: 1050 Pp 9 iia = JO STATUS, ; 
: 1 P 1 Pi == OFTB_DESC : 
: 1 § 1 4 IF .STATUS THEN Status = ,J0_STATUSCO) : 
> 1054 10464 2 IF NOT .STATUS ; 
3 35 5 @ THEN ERR_EXIT (DSKQS_ACTERR, .STATUS) : 
; 1058 1048 END; ! end of routine ACT_CREATE ; 
.PSECT $PLITS,NOWRT,NOEXE,2 F 
00119 -BLKB 3 3 
00000064 000003E8 00000000 00000000 00000001 Boric P.AAG: .LONG 1 9 0, 1000, 100 : : 
0000000# 00130 “LONG § 0128) ; : 
.PSECT SOWNS,NOEXE,2 ; 
H 024C P.AAI: .BYTE 1, 0 g . 
1 9088 4 “WORD 32 : ; 
00029000 00 00010000 0025 [LONG 65536, 131072 : ; 
0000 9000 99 000 00258 “WORD 0, 32, 0 : F 
094 020 00260 P.AAH: .WORD 32, ; ; 
0000000" 00264 ‘ADDRESS P.AAI ; 3 
00000000 00268 “LONG 0 : ; 
FILE _DATA= P. AAG 3 
CREATE_ATTRIB= P.AAH 3 
.EXTRN SYS$Qi0W 3 
.PSECT S$CODES,NOWRT,2 : 
003¢ 000 JENTRY act CREATE, Save R2,.R3,R4,R5 : 0920 ; 
55 99000006 00 — 0000 MOVAB SYSS$Q10W, RS ; ; 
4 00000 06 9E MOVAB srasstor” RG ; : 
53 00000000' EF 9 19 vAB -:10_STATUS, ; ; 
FC 4 8 1 TSTw CH L 3: 0982 3 
1 1A BNEQ = ‘1$ : F 
00450048 8F DD 0001 PUSHL #4522056 : 0983 ; 
64 s. CALLS #1 biasst : 3 
| 182 €3 00060006 8F D 1$ VL abe QUOTA_F1B+10 > 0988 ; 
| 186 1 5 Vd #1, QUOTA FIB+Té ; 0990 ; 
1 ¢ 0590 F $C MOVZ7WL #1480. QuOTA_FIB : 0991 : 
18 C f A MOVZ7BW #1 QUOTA FIB+22 ; 099 3 
1 ¢ 1 9 VL #1, QUOTA_FTB424 ; 099 ; 
| 199 ¢ ‘ MOVB ae, QUOTA“F 1B¢ ; > 0994 i 
196 ¢ B A MOVW QUOTATF B+ : 995 ; 
5 4 O004F CLRL ) : 100 ; 
| 025c 46c3—s9F 00051 PUSHAB CREATE_ATTRIB : : 


a 


lp peauaTA 


13 
B-Fep-1964 25:58:58 YAN} BL igs=32 v4 0742 | Page 46 | 


1 
1 
7E 7C 5 LRQ 2 =( SP) ; : 1 
034 C3 OOF PUSHAB QF ILE_NAME : :1 
0 ¢ F 8 PUSHAB OFIB_DESC : 31 
§ ¢ F CLRQ = =( SPJ : : 1 
3 D 0006 PUSHL : : 1 
7E F3 BF OA 6 MOVZBL #243, -(SP) : :1 
7E FC OAS OC MOVZWL CHANNEL, =(SP) : : 1 
7E 04 00068 CLRL = = (SP) : :1 
65 FB gp CALLS #12, SYS$Q10W : | : 1 
2 D 9 MOVE RO Ty : 71 
0 5 7 BLBC STATUS, 2$ + 1004. : 1 
f i: MOVZWL 10 status STATUS : 31 
08 E 7 BLBS STATUS, 3$ : 1005. : 1 
DD 0007C 2%: PUSHL STATUS + 1006 : 1 
00450050 8F DD O007E PUSHL #4522064 : | : 1 
64 2 FB 00 84 CALLS #2, LIBSSTOP ; 31 
—E 7C 90087 3$ CLRO 0 = (§P) + 1017 : 1 
7E or 7D 0089 MOVO = #1, _=(SP) : 31 
7E 9200 F 3¢ 0008C MOVZWL #5412, =(SP) : : 1 
00000000' ai oF 0091 PUSHAB QFILE_DATA ; : 1 
: C 00097 LROs=(S : : 1 
; DD 00099 PUSHL R3 : | : 1 
: bp 0098 PUSHL #48 : | 31 
7E FC =A3. 3C 00090 MOVZWL CHANNEL, =(SP) : | :1 
7E 04 OO0A1 CLRL = = (SP) ; :1 
65 O¢ FB 0003 CALLS #12, SYS$Q10W ; : 1 
52 D O00KG MOVL RO, STATUS F | : 1 
06 5 E9 000A BLBC STATUS, 4$ + 1018) : 1 
52 $ C OOOAC MOVZWL 10 STATUS, STATUS ; | 71 
0B E8 OOOAF BLBS STATUS, 5$ + 1019) : 1 
52 OOD 90082 4$: PUSHL STATUS + 1020. :1 
00450058 8F DD 000B4 PUSHL #4522072 : : 1 
64 02 FB OOOBA CALLS #2, LIB$STOP : 31 
7E 7C O00BD 5$: CLRO 0. = (§P) > 1025) : 1 
7E 7C 9008 CLRO -(SP) : 3 1 
7E 7¢ 000C1 CLRQ = =(SP) ; : 1 
43 7¢ b00¢5 CLRQ = = (SP) : | :1 
; DD 000C PUSHL R3 : 31 
4 bp 00C7 PUSHL #52 : | : 1 
7E FC 863) «-3C 00009 MOVZWL CHANNEL, =(SP) : | 31 
7E D4 000CD CLRL (gp) : : 1 
65 of f itd CALLS #12, SYS$QI10W 3 3 1 
52 DO 0000 VL RO, STATUS : 71 
06 5 | 990 LBC = STATUS, 6$ : 1026. : 1 
¢ 0D MOVZWL 10 STATUS, STATUS ; : 1 
08 E8 00008 LBS SsTATUS, 7$ + 1027. 71 
DD 00 DF 6$: PUSHL STATUS : 1028 | : 1 
00450060 &8F DD O00E PUSHL #452 : : 1 
4 FB 33 CALLS #2, LIB$STOP : 31 
0182 C3 D4 OO0E9 78: CLRL = QUOTA_F 18+10 : 10 3 :1 
186 f B4 ED CLRW QUOTA FIB+14 > 1035 | §| 
O18E 3 BO O00F Vw #9, QOOTA F1B+22 > 1036. : 4 
0190 C3 4 0 F6 CLRL  QUOTA_FIBT24 + 1037. : 1 
— 7C OOOFA CLRQ = =( SP) : 1042. <q 
Fe ot BOOrE ete =C8P} ] 
| 0208 c BF 0100 PUSHAB QF IB_DESC : :1 
| 


a 
one" 


| m 7 

no HY 
5 F 

pat 

,oosines : 

04 
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1$-Sep-1 4 :38:38 AX-11 Bliss-32 v4.0-7 
12-208-1 98¢ 93:79:28 DISKQ.SR RCIDISKOVOTA.B3 B32;1 
CLROQ 0 = (SP) 
PUSHL R 
PUSHL #56 
A MOVZWL CHANNEL, (SP) 
CLRL isp) 
CALLS #12, SYS$Q10W 
MOVL RO, STATUS 
§ BLBC ~—s STATUS, 8$ 
MOVZWL JIO_STAfUS, STATUS 
C BLBS STATUS, 9$ 
F 8S PUSHL STATUS 
1 PUSHL #4522088 
7 CALLS #2, LIBS$STOP 
A 9S MOVL #1. RO 
D RET 
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3; Routine Size: 


104 bytes, 


63 
0186 C2 00040004 
O18A =C 
0192 «C¢ 


0244 
020C 
04 
7E 
000000006 09 
07 
50 04 
08 
3 00450068 
0 


Routine Base: 


18.12 -Sep-1 
14-Sep-1 


1986 43:45: 


' end of routine 


SOODWVWNWP N10 NOW NOM NVNOOWDOWOSMS 
= ROOCWMOM MMIGPMNPUM MM OF —= MON T"O 
O99 MO OMWM MNIOWS ONOOVNVODO "SO -Dowoo 
FOOD F WO OD LOG MO MBOOOOCOWMOINUMMO 
COOOCOCOCOCoOOOOCOOooOoCOoOoOoOoOOoOoOoOoOoOoeo 
WED OPM MDOOW "MODE VODAS & FNOCONO 
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SCODES + 03D 


1 ¢ QUOTA_FIB F1BSW CNTRLFUNC] = FIBSC_ENA_QUOTA; 
11 STATUS = iW TCHAN = CHANNEL 
11 8 FUNC = {0$ ACPCONTROL, 
1 10SB = 10 STATUS, 
1110 Pi = OFTB DESC 
11) Pe = OFILE_NAME 
1148 IF .STATUS THEN STATUS = .JO_STATUSCO); 
1114 If NOT .STATUS 
1115 THEN ERR_EXIT (DSKQS$_ACTERR, .STATUS); 
1419 1 
1118 1 END; 
00 0 
53 000000006 0 
52 00000000' 0 
00450048 


23: 


3$: 


:38 AX-11 Ol igs ze vet ots 
746 DISKQ.SRCJDISKQUOTA.B32; 1 


ACT_ENABLE 


ACT Crore ek 


Save R2,R3 
L1B8$S 


mags QUOTA F1B+10 
as QUOTA_F 1B+T4 
#940 QUOTAqF 1B+22 


= (SP) 
eine 
19,8! STATUS 
CHANNEL, =(SP) 
wi2, SYS$oloW 


4522088 
a. ,anrerer 
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11 | . 
11 THEN ERR 
He 
39 11 END; 
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; Routine Size: 92 bytes, Routine Base: 
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wis 

311 7 

: “ i 

: 1191 7 

; 119¢ 0 F .STATUS TH 
: 119 1 F NOT .STATU 
: 1194 ; HEN ERR_EXIT 
> 1195 

: 11 4 

311 5 


canes pactema, 


! end of routine 
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19:46 be38i8 


DISKQ.SR 


ACT_DISABLE 


ACT DISABLE Save R2,R3 
LIBSSTOP, RS 
LI ANNEL "ao 
CHANNEL 
#4522056 
#1, LIB$STOP 

#6 ‘OTA F1B+22 
auota. B+24 
mts 
-(SP) 
af 18 DESC 
19 STATUS 
CHANNEL -(SP) 
#12, SYS$Q10W 
STAT 


10_ STATUS, STATUS 
TAT Tus, 3$ 


$7 

STA 1s 
#4522096 
oee LIBSSTOP 
#1, RO 
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4 Page 53 
DISKOQUOTA.B32; 1 9 48) 


1ESeoctoge 25:58:58 pater eusgs=s2,y4s0e 


! If either value is not spe 


cified, read the default record and copy its 
values into the unspecified fiel 


ds. 


IF NOT .UIC_FLAGSCPERM_SPEC 
OR NOT .UIC“FLAGSCOVER-SPEC 
THEN 
BEGIN 
QUOTA_FIBC! IBSW_CNTRLFUNC) = FIBSC_EXA_QUOTA; 
QUOTA-FIBLFIBSL-CNTRLVALJ = 0; 
QUOTA”F IBLF IBSL WCC) 
P STATUS = $Q10W TCHAN = .CHA 
Pp FUNC = 10$ ANCBEONTROL. 
P 10SB = 10 STATUS, 
P Pi = OFTB DESC 
P P2 = DSTREC_DESC, 
P ps = DSTREC_DESC 


IF NOT sul FLacstpenn m_SPEC) 
THEN PERM_VALUE = .DST-RECCOQFSL_PERMQUOTA); 
T UIC F FLAGSCOVER R7SPEC) 


THEN ovr “VALUS = .DST_RECCDQFSL_OVERDRAF TI; 


: Issue the ADD function call. 


QUOTA_F IBLF IBSW_CNTRLFUNC) = FIBSC_ADD_QUOTA; 

QUOTA_FIB FIBSL. CNTRLV. AL) = 0; 

QUOTA-F IBLF IB$L WC i, 

STATUS = $aiow th 


vA 
= . CHANNEL, 
FUNC = 10$ A ACPCONTROL., 
10SB = 10 STATUS. 
P1 = QFYB DESC 

P2 = SACREC_DESC 


);: 
~STATUS THEN STATUS = .10_STATUS(O); 
NOT .STATUS 
N ERR_EXIT (DSKQS$_ADDERR, .STATUS); 


wvvuVvUU 
a a ed a ad dd 


PROPOREPENIPoNoNoNoNoNnofnofnonet» 


F 
F 
HE 


a a ak a tk ed ak kd a a = ss 2 1 1 1 
DOD OHO HG H9000009 09 09.09.09. 09 09 Wd i ddd Sb dd IOP OO OO OO UU 
SIS AK CG HOSOI APO ODORS RUIN OD UP ARON oO ote ae 
EUR ODO NONE UOND-2 O O00 WO PNR OOOO SOU dh OO OOD OP od 


I 
I 
T 
1 
E 


ND; ! end of routine ACT_ADD 


T ADD, seve R2,R3,R4 ; 1186, 


0 00 AC F 
54 0000 3 6 2B 9E 000 MOV SYS$Q10W ; 
33 300809 9E 9 MOVAB class tor” Ra ; 
2 9 1 MOVAS UIC FLAGS, R2 : | 
c2 8 1 TSTw CHANNEL : 1234 
1B BNEQ ~=i'1$ : | 
00450048 f Db a8 PUSHL #4522056 | : 1235) 
3FFF OF 86 A Bf 3 1$: CMPuStsés é AAPUESS #16383 > 1240 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


se | 


a 
| 
i 


—____——- 
13 
DISKQUOTA 14-5 “1984 23:38:38 AX-11 Bliss-32 V4.0-74 
Nba sobo 12-808-1 382 93:79:38 DISKO. $RCID 1 SKQUOTA.B3 31 
08 1 C BEQL «=s 2S 
| FFFF 6 BF 84 A ei E cmPY C_VALUE, #65535 
| 00450028 BF DD 000% 28: PUSH #4522024 
o% 6 3 ef f 3$: BBC #3. UIC_FLAGS, 4$ 
é 4 £0 43 BBS #4. UIC"FLAGS 
D6 OA BO 00047 4$: MOVW #12, QUOTA F1B+22 
D8 he D4 00048 CLRL  QUOTA_F1B+24 
DO «Ad «D4 90046 CLRL QUOTA-FIB+16 
cc C 000 i CLRO 0 = SP 
48 Ad OF PUSHAB DSTREC_DESC 
7E 04 : CLRL 0s = ( SP) 
48 h F 0005 PUSHAB DSTREC_DESC 
50 Ad 9F 00058 PUSHAB QFIB_DESC 
7E 7¢ 0056 CLRQ = =(SPY 
me UB ibe Rese tine 
7E FEGG ce 3¢ 0066 MOV ZL CHANNEL , -(SP) 
64 o¢ FB 9060 CALLS #12, SYS$QI1OW 
05 é 03 €0 00070 BBS #3, UIC FLAGS 5$ 
8C Ke AC A2 00 dare MOVL DST_REC?12, PERM VALUE 
05 6 04 £0 00079 5S: BBS #4, "UIC_FLAGS, 
90 A BO A2 00 99070 MOVL  DSf_REC716, OVER VALUE 
Pe D8 hg Sy sexes OO ta Haemee 
DO OA D4 0089 CLRL  QUOTA-FIB+16 
TE Te SooRE ctRo =(SP) 
40 hs OF 90090 PUSHAB SRCREC_DESC 
70 He FE B09 pet ies 
FEGB (3 9 90098 PUSHAB 10. STATUS 
7E FE4G 6 C2 Be $00 MOVZWL CHANNEL, -(SP) 
7E D4 000A CLRL = = (SP 
68 85 ES 000K Gib: Status 7s 
50 FE48 £2 i 900 MOVZWL 10 STATUS, STATUS 
08 E8 0008 BLBS STATUS, 8$ 
00450078 ae DD its 7” PUSH 34829904 
63 02 FB 00088 CALLS #2, LIBSSTOP 
50 0 B0 0008 8$: HOVE #1. RO 


3; Routine Size: 194 bytes, Routine Base: S$CODES + 0491 
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DISKQ - 18.13 -1984 23:38:38 AX-11 Bliss-32 v4.0-7 Page 55 
4 1a-Sep-1986 93; 38:38 DISKQ.SRC DISKQUOTA. 83 31 . a3 
3 ; ; ! GLOBAL ROUTINE ACT_REMOVE = 

: 1 1 1 te 

:1 1 $ 1 i 

3 ! : 4 ! Functional Description: 

: 1 1 38 7! This a eqtcen routine ere she REMOVE command. It removes the 
3 ; . ; +, : specified entry from the quota file. 

31 1295 1 Calling Se uence: 

eae Be eee 

: 1 ig 1296 1 | Input Parameters: 

mt i ape 

: 1315 1301 1! Implicit Inputs: 

we i 

: 1318 1304 1! Output Parameters: 

cc ee 

: 1321 1 0 1 | Implicit Outputs: 

1S bet a pee 

> 1324 1310 1 ! Routines Called: 

3 } 2 ; 1) ! none 

> 1327 1 ig 1! Routine Value: 

ie | 

:1 1316 1! Signals: 

He 

> 4 1319 1! Side Effects: 

3 1 1330 1! none 

3 ’ 5 ; 1 : 

poe ae 

; 39 1325 

3 1341 13 $ LOCAL 

3 1 § 1328 STATUS; ! general status value 

3 7 1329 

: 1344 1330 

s : é : ; : Verify that a channel is open. 

:1 1 ‘ 

; 1348 1334 IF CHANNEL EQL 0 

: ’ $3 : 5 THEN ERR_EXIT Koskos NODEVICE); 

; : 53 : 3 : Set any appropriate wildcard indicators. 

: 135 1 

: 1354 1340 IF UIC cv VALUE<16,16> EQL UICSK_WILD_GROUP THEN UIC_FLAGSCWILD_GROUP) = 
3 : : ‘} IF .UIC_VALUE<0, 16> EQL UICSK ‘ott D_REMBER THEN UIC™ FLAGSCWILD “MEMBER] = “ 


ee 8 es 8 8 a a a 8 wt a a bs ob = 4 sb a 4 5 a a a a a — 4 ab bs a tn tn as 4 


vuvUvUUU 


vuvv 
ee 


DONA VST" OVOONOUE Ww 


PPP ASIAITIIII EE & 


Seueu wn 


PIII HHH BEB BAPE EE EF FANMAIL IHIAIIPOPPONPNonononony 


14-Sep-1984 DISKQ.SR SKQUOTA. "83 31 


! Loop for ~ matching entries in the quota file, making a call to 
remove each 


QUOTA_F 1B 


FIBSL-CNTRLVALJ = .UIC_FCAGS 


QUOTA, “FIBtF gst CNTRLFUNC) = FIBSC Rees -QU0TA; 


QUOTAFIBCFIBSL-WCC) = 0; 
INCR J FROM 0 
BEGIN 
STATUS = $Q]0W (CHAN = . CHANNEL 
FUNC = 10$_ACPCONTROL, 
10S8 = 10 STATUS, 
Pi = OFTB DESC 
P2 = SRCREC_DESC, 
p4 = DSTREC-DESC 
If .STATUS THEN STATUS = .10_STATUSCO); 
IF . STATUS 
THEN 
BEGIN 
IF .STATUS EQL SS$_OVRDSKQUOTA 
THEN ERR_MESSAGE (sos. INUSE 
rita -UICI)<16,16>, 
mittee R $L"UIC})<00/14>. 
-DST_RECCDQFSL_OSAGEJ); 
END 
ELSE 


1 
END; 


IF » STATUS ao SS$_NODISKQUOTA 


AND . 
THEN EXITL 
ERR. EXIT LoeKas _REMOVERR, .STATUS); 


IF NOT .UIC_FLAGSCWILD_ GROUP) 


AND NOT .UIC_FLAGS(W wits MEMBER] 
THEN EXITLOOP; ! done if no wild cards 
ENC; ! end of loop 

! end of routine ACT_REMOVE 


003¢ 000 .ENTRY ACT_REMOVE, Save R2,R3,R4,R5 > 1286 
55 9000000 G 00 9€ 0000 MOVAB LIBSSTOP, RS ; | 
4 00000000' €F 9% MOVAB UIC FLAGS, R4 : 
FE44 4 8 10 TSTw CHARNEL 3 1334 
9 14 BNEQ $ : 
00450068 8F DD 16 PUSHL #4522056 > 1335 
5 1 €B O00IC CALLS #1, LIBSSTOP : 


bel3oe19 4 t 93:78:28 AX-11 Oh igen ze v4.0 Pege .i¢ 


so | 
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413 
DISKQUOTA 15-Sep-19 :38:3 AX-11 Bliss-32 V4.0-7 Pa 7 
Rieti 12-08-19 $3: 78:28 DISKO. SAC S1skauota.o3 31 9 48) 
SFFF OF 86 AG 81 1f 1%: CMP C_VALUE+2, #16383 : 1340. 
3 ; BNEQ 3 
64 8 B1SB2 UIC_FLAGS : 
FFFF 6 oBF 84 At 8 A 28: cMbw We. VALOE, #65535 : 1341 
64 0 8 B1SB2 VIC_FL Ags F 
6 AG t & 3$: MOV nb, QUOTA_F 18+22 + 1347. 
DB AG 64 D MOVL UIC FLAGS. “QUOTA_F 1B+24 : 1348 
DO AG D4 CLAL QUOTA_F 1B+16 3: 1349 
33 4 40 CLRL Vig : 1351 
E 7C 00042 4$ CLRO + 1361) 
68 AG 9F 000464 PUSHAB DSTREC DESC : | 
7E 04 00047 CLRL ss =< SP) : 
40 Ad 9F 00049 PUSHAB SRCREC_DESC : 
50 Ad OF 0004C PUSHAB QF IB DESC : 
7E 7C 0004F CLRQ 0 = (SPT : 
FEGB C4 9F 00051 PUSHAB 10 STATUS : 
8 DD 005 PUSHL @ : 
7E FE44) «6 C4) 3C.:«000 MOVZWL CHANNEL -(SP) : 
E 04 0005¢ CLRL (SP : 
000000006 99 o¢ F 0055 CALLS : “syssai0u ; 
9 DO 0006 MOVL RO STATUS ; | 
é 5 : 0068 BLBC STATUS, 5$ : 1362) 
FEGB C4 ¢ 006 MOVZWL 10 STATUS, STATUS F 
2 E9 000 BLBC ‘STATUS, : 1363. 
00000669 8 D1 007 CMPL STATUS, #1641 : 1366 
12 QOO7A BNEQ $ $ 
AB A& OD 0007¢ PUSHL DST_REC+8 : 1370 
7E AG Ad 3C 0007F MOVZWL DST"REC+4, (SP) ; | 
7E A6 AG «3C 0008 MOVZWL DST"REC+6, =-(SP) : 
00450098 8F dD 0008 PUSHL #45221 : 
000000006 00 04 FB 0008D CALLS #4, LIBSSIGNAL F | 
18 11 00094 BRB : 1363 
00000364 8F 52 D1 00096 5$: CMPL STATUS, #996 : 1374 
04 12 0009D BNEG 6$ ; | 
53 05 0009F TSTL > 1375. 
1A 12 0001 BNEQ $ ; 
52 0D O0A3 6$: PUSHL Stal S : 1377) 
00450080 &F DD OOOA PUSHL 2112 ; 
65 ? F 0 AB CALLS ae STOP ; 
03 64 E 7$: BBS r ule “FLAGS. 8$ : 1380 
a 2 B BLBC y é fF Ags : 1381) 
85 7EFFFFFEF FF B5 8$: AOBLEQ inka $47” me 4$ : 1351. 
50 1 ty $: MOVL , RO : 1387 
4 000C RET 3 


3; Routine Size: 193 bytes, Routine Base: $CODE$ + 0553 
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GEAREE  WISLLANSTEOURES, 


DISKQ.SRCJDISKQUOTA. 


«ADDRESS P.AAS 


P.AAJ 

P.AAL 

P. AAN 

P. AAP 
LIBSPUT_OUTPUT, SYSSFAO 
$CODES,NOWRT,2 


ACT_SHOW, save R2,R3,R4,R5,R6,R7_RB 
YSSFAO, R 

$PUT OUTPUT, R7 

SSTOP, R6 
TING_HEADER, RS 
LAGS, R4 

t P), §P 


#1, LIB$ST 
ULE VALUE*2, #16383 


#2, UIC_FLAGS 
1¢_VALOE, #65535 


#1, UIC_FLAGS 

#12, QUOTA_F1B8+22 
UIC_FLAGS, QUOTA_F1B+24 
QUOTA_F 1B+16 
#i, uTC FLAGS. 4$ 
UIC_FLAGS, 5$ 


", LI6S$PUT_OUTPUT 
(SP) 

DSTREC_DESC 

=(SP) 

SRCREC_DESC 

QF IB DESC 


-(SPY 
10_STATUS 


CHANNEL , -(SP) 
#12, SYS$Q10W 

RO, STATUS 

STATUS, 7$ 

10. STATUS, STATUS 


STATUS, 9$ 
STATUS. #996 


28 
BSSTOP 


J 
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14 
_DISKQUOTA rf ep-1984 23:38:38 AX-11 Bliss-32 V4.0-7%4 
vbee 14- Hatt fs 93:3 746 YO tsKa. SRCID1SKQUOTA.B3 31 
44 AE 43 8F 98 00080 9$ MOV7BW #67, UIC_DESC 
48 AE 6— 9E 0008 MOVAB FORMATTED_UIC, UIC_DESC+4 
AG AG DD 0008 PUSHL DST_REC+4~ 
48 AE 9F O00BC PUSHAB UIC“DESC 
f AF F OOOBF PUSHAB UIC ~DESC 
008 9F 000C SHAB P.ARR 
5B 4 FB 000C CALLS #4, SYS$FAO 
FF60 6 C4 84 BF 9A 000C MOVZBL #152, OUTPUT_DESC 
£ AC AG 7D OOOCE VQ OST_REC#12, =(SP) 
AB A&G DD 00003 PUSHL DST“REC+8 
50 AE OF O06 PUSHAB UICDESC 
FF60 «C4 i 990 PUSHAB OUTPUT_DESC 
FF6 4 9F 00000 PUSHAB OUTPUT~DESC 
03 64 1 £0 00E1 BBS #i, UIC_FLAGS, 10$ 
12 $4 £9 OO00ES BLBC ~—-s CFLAGS, 12$ 
1 5C AE 81 000E8 108: CMPW ites “DESC: na 
06 1€ OOOEC BGEQU 1187 
50 2c «(AS OO OO0EE MOVAB MULTI_FOAMAT_1, RO 
0B 11 O00F BRB 1 
50 5¢ AS 9E OO0F4 11$: MOVAB LTI_FORMAT_2, RO 
05 11 000F8 BRB 
50 ooac C5 (OE OOOFA 128: MOVAB SINGLE_FORMAT, RO 
50 OD OOOFF 13$:  PUSHL R 
68 07 FB 00101 CALLS @ SYSSEAO 
FF60 C4 9F 00104 PUSHAB oufPu SC 
6 01 FB 00108 CALLS , LIBSPUT OUTPUT 
03 64 01 £0 00108 BBS 
OA 64 £9 0010F BLBC ui Ags 
FF4B 53 01 7FFFFFFF 8©68F F1 00112 148: ACBL 218748 $47" nh. J, 6$ 
50 01 00 0011C 15$:  MOVL RO 
04 0011F RET 
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oO c ww 
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- ° o@ 
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~ @ Ow 
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“ a - wo md 
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vw v OD v . w cy cad vo rw) om t& os 
@ “o #-@ co @ Dod ~ =] Cy ** oa a “oe 
ee wr COQ & >] a a ~ a +. e a~ 6 -Oo 
ua a an 36 aw a € ~ — = ] wn ” t= = vv 
ot - oo s c > e ~ os = ~ we Aa [veyve) 
) ~ #ev @c eo —-@ t&£@ O88 YS 88 e® v@ i @e - a — P= | 
- eo -@ 68 tc c ec Cc c >c Cc @#c 4 = —~x «© ad ad 
4 c £a ~ #@o wo aced #49 oo 6 +O - ~ wus <«< 
oer Ow ac ee c -c @#c @cCc we +e ” [ >> 
a - c ~~) os v c c —~ w ~ « +3 ee 
rs wm ra - 3 - cad - oo - a wv 
af v — = ] ~ a — oe ra c e - mw —— 
< s ~ a a a a > > a =] z =~ YL eo S> 
s @ c e > Ee ° ° - - a < ae z= & ee 
- vw = _ Oo - fog 4 ” ” t o Vv > w W 
—_+ + i (ve) oOo = a 
ee ee te ee te te tt te te te te te te ee eee @ oni --- — --- oe 


pa ee FED A AN hen +e itt eae ey He ety Ate ty trae Wed we A te 8 ad Ow eo 
RESON EF FT EE TST TT TMM OOO OOOO OOORAR APPA AAPR. ODD 
LVDLVLVLVLVLVLVLVLVLVLVLVLVLVLVLVLVLVILVLVLVLVLV LV LULL LVL LV LULL LVL LV LVL LVL LY LVL LV LV ALV ELVIS ALY LVL NELLY, 
ee ee el et el el el ee ee ee el el el ee el el ee ee ee el ee el oe el ee ee eh el el el ed ee ee ee 


TH ORPATMADOPR- DAO CUM TMA OPR. DOO CUM TM OR. DHOOM TNOKR DOOR NUMTN aoaooewmM was 
SI SIGS TF TRAAAAAMAAAD DO OSOSO OORRNNRNRERER DSODSOSOSOSAOO ooo 
PADD DDPPULPDDLVLBLVLVLVLVLVLVLVLVLUULVLVLVULVLVLVULULULVLVLVLVLVLVLVLVLVLVLV LVL LULV LV LVL ALL LVALY LVAD LY OLY I 


el el el el el el el ee el el ee el ee el el el el ee ee ee ee ee le ee eh ee ee ee oe ee ee ee ee ee ee el 
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60 § 
60 
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eo? 31 
608 4 
6 9 
6 P 1594 
6 P 1595 
6 P 238 
6 P 2 
6 P 1598 
6 P 1599 
6 600 
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6 8g 
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6 
6 
6 P 
6 P 
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PAPCOAAASCAAAAAAS 
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PAPAAAAAOAASAAAAAAAAASAOAAO OO 


ROPNOPNUNN  OOOOO 
KRU OOHDNAAL WU BMODS UR 


FFF 
R=0 


—PONINWWWIWI BS BBB BUR BBB EB BWW rnrnnornonononononorny 
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14 
$5 -1984 23:38:38 AX-11 Bliss-32 V4.0-74 
1e-8ep-19 4 93:7 746 SRCID 


DISKQ. 


! Loop for all matching entries in the quota file, making a call to 
} modify each. 


QUOTA_FIB 


FIBSL_CNTRLVA UIC_FCAGS; 


QUOTA FIBtr Lest ere = FIBSC_MCD_QUOTA; 
S » 2 


QUOTAF IB 


FIBSL_WCC) = 0; 


INCR J FROM 0 


BEGIN 
STATUS = $01]0W (C 
FU 


): 

IF .STATUS THEN STATUS = .10_STATUSCO); 

IF .STATUS 

THEN 

BEGIN 

IF .STATUS EQL SS$_OVRDSKQUOTA 

THEN ERR_MESSAGE (BSKQ$_INUSE 
(DST -UIC})< 18.1 
(DST REC DOF S$L-UICJ)<00,1 
.DST_RECCOQF$L_OSAGEJ> 


END 
ELSE 


IF STATUS EQL SS$_NODISKQUOTA 
AND .J NEQ 0 

THEN EXITLOOP; 

ERR EXIT (DSKO$_MODIFYERR, .STATUS); 


IF NOT .UIC_FLAGSCWILD_GROUP) 
AND NOT .UIC_FLAGSCWILB_MEMBER) 
THEN EXITLOOP; 


END; ! end of loop 


! done if no wild cards 


! end of routine ACT_MODIFY 


003C 000 -ENTRY ACT_MODIFY, Save R2,R3,R4,R5 
55 000000006 00 9€ 0000 MOV LIBSSTOP, RS 
54 00000000" EF 9€ 00 MOVAB UIC FLAGS, R4 
FE4G 4 86 10 TSTW CHARNEL 
9 1 14 BNEQ =s«*1$ 
00450068 8F DD 00016 PUSHL #4522056 
1 FB 1¢ CALLS #1, LIBSSTOP 


DISKQUOTA.B32;1 


ref 


1525 


1573 
1574 


ee ——_— ——————— 


DISKQUOTA 5-Sep-1 Ax-11 Otis s-32 V4.0-74 
“WOe-000 F-ep- 1944 3: 18:38 DISKO. SRCIDISKQUCTA. 33. :1 
| 3FFF OF 86 AG 8 1f 1% “ C_VALUE*2, #16383 

03 BNEQ 
| 4 8 BISB2 #2, UIC_FLAGS 
FFFF 6 BF 84 A, 3 A 2%: CMP yit. VALOE, #65535 
| 64 83 8 BISB2 #1, UIC_FLAGS 
06 AG 0D 8 38: MOVW *18, QUOTA_F 18+22 
08 AG 64 00 MOVL = UIC FLAGS, “QUOTA_F 18424 
| DO AS DG : CLAL QUOTA, FIB+16 
3 D4 40 CLRL ™ 
E 7C 00042 4$ CLRO 
48 AG OOF O44 PUSHAB DSTREC DESC 
7E 04 00047 CLRL = = (SP) 
40 AG 9F 00049 PUSHAB SRCREC_DESC 
50 As OF 0004C PUSHAB QFIB DESC 
7E 7C OO04F CLRQ 0 =( SP 
FEGB C4 «OF 00051 PUSHAB 10 STATUS 
8 DD O08 PUSHL #56 
7E FEG4 4 3C 0005 MOVZWL CHANNEL, =(SP) 
—E D4 0005c CLRL P) 
000000006 00 9¢ FB 0055 CALLS #12, Syssalou 
52 DO 0006 MOVL RO, STA Tys 
2 52 £9 90068 BLBC = STATU 
FEGB cs C 00068 MOVZWL 10 WS tus. STATUS 
s 9 90070 BLBC sO 
00000669 =F 52 (1 9007 CMPL STATUS, #1641 
32 12 O007A BNEO $ 
AB AS DD 0007C PUSHL DST_REC+8 
7E AG A 3C 0007F MOVZWL DST“REC+4, -(SP) 
7E A6 AG 3C 00083 MOVZWL DST"REC+6, -(SP) 
00450098 a DD 00087 PUSHL #4522136 
000000006 00 4 FB 0008D CALLS #4, LIBSSIGNAL 
18 11 00094 BRB 
000003E4 8F 52 01 00096 5S: CMPL STATUS, #996 
o4 if 0090 BNEQ 6$ 
3 05 ON09F TSTL 
1A 12 000A1 BNEQ 9S 
52 DD OOOA3 6$ PUSHL STATUS 
00450088 8F DD OOOA PUSHL #4522120 
65 02 FB OOAB CALLS #2, LIBS$STOP 
03 64 01 £0 OOOAE 7S: BBS #i ui¢ FLAGS. 8$ 
0 64 EY 008 BLBC uit FL Ags 
85 53 7FFFFFFF 8©68F 3% 00085 8$ AOBLEQ £748 $47” es 4$ 
50 01 00 90080 9$ MOVL #1, RO 
04 000C RET 


; Routine Size: 193 bytes, Routine Base: S$CODE$S + 0734 
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Be Oe Se Se Oe Be Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Se Se Se ae Se Se Se ee Se Se Se Se Se asae 


eee ee ee 


<2 
v 
zx 
oO 
— 

eT 

| 

| 

| 

| 


: 1644 1627 
180 i : 
i 164g 188 
; 18¢5 16 ; 
+ 1839 1834 
; 1888 1635 
1882 1689 
; 1695 16 : 
1696 16 

> 165 1640 
: 1658 1641 
1888 1808 
z 1961 1868 
: 1668 1646 
3 1965 1869 
1987 188 
> 1669 1658 
: 1670 165 
: 18h) 1688 
; 1838 1656 
> 1676 165 
3; 1675 1658 
: 1676 1659 
> 1677 1660 
> 1678 1661 
: 1679 166@ 
: 1680 166 
+ 188) 1868 
iw ig 
1685 1865 
ite 870 
1088 1898 
gs 
we it 
1 BS 
: 1899 1680 
: 1698 1681 
: 1699 16 § 
; 1700 16 


lssisestiainetiiataiantin 


PREP IPIPIPOPOPIMPMPONPNIPIPPIAIY 8 at at tt st nt tk kk kk tt at a tt tt 


GLOBAL ROUTINE ACT_REBUILD = 


Oe a ee ee ee ee ee ee te ee ee 


++ 


Functional Description: 


AX-11 St pe V4.0-74 
DISKQ.SRCJDISKQUOTA.832;1 


This routine implements the REBUILD command. It scans the index file 
of each volume in the volume set and constructs a table of UIC's 


and blocks used. It then updates the ysane 
creating entries as needed so that all VIC’ 


Calling Sequence: 
standard 


Input Parameters: 
none 
Implicit Inputs: 
none 
Output Parameters: 

non 
Implicit Outputs: 

none 
Routines Called: 
Routine Value: 

none 
Signals: 

none 


Side Effects: 
none 


BEGIN 
LOCAL 


EXTERNAL ROUTINE 
REBUILD 


STATUS; 
: ADDRESSING_MODE (GENERAL) 


Verify that a channel is open. 


If CHANNEL EQL 0 
THEN ERR_EXIT (DSKQS$_NODEVICE); 


Enable the quota file, just in case it is off. 


data in the quota file, 
s using blocks are listed. 


! general status value 


3 !' routine to do actual rebuild 


Poe 485 


} 


FF a TA 


~ 
Wr 


uw 
PAAR O 


0 00 09 0D C0 CD 


vuvuvU 
dd dt dd 
SN NI NINO OP OOOOOOO 
OONAOUE 


SOoooooowowow 


SNS NNN SSS 
oooowo 


Se Ge Ge Se Ge Ge Ge Ge Ge Se Fe Se Ge Ge Ge Ge Ge Ge Ge Ge Ge See 
ee a eB ce a ee ee ed a ee ee el 
PORIRUA — tt 2 


Lasasaneguenentapesinnptimampeiminments 


QUOTA_FIB[FIBSW_DID_NUM] = F IDSC_MFD; 
QUOTA-FIBEFIBSW-DID-SEQ) = FIDSC-MFD; 
QUOTA-F IBLF IBSW-DID-RVNJ = 1; 
QUOTA FIBLFIBSW-CNTRLFUNC) = Ff I8$C_ENA_QUOTA; 
STATUS = $Q]0W TCHAN = , CHANNEL 

FUNC = 10$_ACPCONTROL, 

10SB = JO STATUS, 

Pi = QFTB DESC 

P2 = OFILE_NAME 


): 
IF .STATUS THEN STATUS = .10_STATUSCO]; 
IF NOT .STAT 


° U 
AND .STATUS NEQ SS$_QFACTIVE 
THEN ERR_EXIT (DSKQS_ACTERR, .STATUS); 


Now call the rebuild routine. 
REBUILD (.CHANNEL, 1); 


1 
1 END; ! end of routine 


So 
Oo 


O79 9 —OMWT NOW OVNOOVNVOIDS "SO —-DoOvoo 
TWO OW DN OD FOG WORMARMOOOOCOWMINWMUIMMEA 


00450048 
00040004 


sErnese 
= 
o 
< 
& 


NOWGOS SMO OPr 


1$: MOVL 


030¢ 


04 


000000006 60 
50 04 

14 

QOOOOSCC = BF 
00450068 

63 


Q6A CALLS 
PUSHL 


= FOOD OCOMOM MRVDSMIMNINUMM OHS RONNS 


SOOWOMAOMNM1 PF NO NOW NOOO VNNOOWOWOSmMa 


AX-11 Oh igs ze V4.0-74 
DISKQ.SRCJDISKQUDTA.B32;1 


ACT_REBUILD 


REBUILD 


ACT_REBUILD 
LiBSsTop, R$ 
CHANNEL, R2 
HANNEL 


Save R2,R3 


#1, QUOTA_FIB+ 
#9, QUOTA~F1B+22 
-(§P) 

-(SP) 

QF ILE_NAME 

QF IB BESC 

! STATUS 
CHANNEL, -(SP) 

#12, SYS$Q10W 

io statu STATUS 
STATUS, 3 
STATUS, #972 
STATUS 

#4522088 

#2, LIBS$STOP 


roe of 


1695 


1696 
1697 


1698 


1703 


-—_——_-——- ---- 


wee 


| 


3; Routine Size: 


ESHeOcHOEG GHSTESRE WATSIS.BA 
om FOG a mre pa oe 


MOVL 
RET 


125 bytes, Routine Base: SCODES + O7F5 


v4.0-7 
seotota.o 


$851 


Page 18) 


RSS ae ae ms 
bysKayOTA 1S-sen-1984 23:5 
GLOBAL ROUTINE ACT_HELP s 


' 
i Functional Description: 


' 
This routine is the DISKQUOTA help facility, and will display 
useful and informative explanations of the BISKQUOTA faci ity. 


To speed things the help Library is opened oniy once, and 
is closed by the bs during Teese ot Psu é 


38 AX-11 Ol igsaze V4 0-74 Page $9 ex 
46 DISKQ.SRCJDISKQUOTA.B32;1 (19) 


— 
—~ 
al 


MEW OO OONe 


Calling en 
standard 

Input Parameters: 
none 


Implicit Inputs: | Mo 


This routine expects the keys used to access the help text to CL 
be in KEY_VECTOR(O..MAX_KEYS). 


Output Parameters: 
n 


SNS NNN NSN 


NOME MN OS ODA UE WN © OD NONE WH 0 ODBNOUESWN S(O CONOUE WOOO 


Implicit Outputs: 

The help text will be printed on SYSSOUTPUT. 
Routines Called: 

LBRSINI_ CONTROL 

LBRS 

LBRSGET_HELP 


Routine Value: 
none 


wy uw , te ae 
OWONOVE WN $O O@NOUS WH OOM 


SSNS NSS 


te ee 
= 


PAAAMAA UII , ae 


ere 


Signals: 
none 


SALLRZIS 


Side Effects: 
none 


SANS NSS 
rT TTT IITs 


o 
~ 


ANNAN 
SWwistooe 


BEGIN | 
EXTERNAL ROUTINE i 
LBRSINI CONTROL : ADDRESSING_MODE (GENERAL), | 
LB : ADDRESSING _MODE (GENERAL), 
LBRSGET_HELP : ADDRESSING _MODE (GENERAL); 


CONOVEW Oo 


> 


BIND 


ee a maa a td td ot “a sd as dd 


SSN NN 
SN NNN 
ooo 


@ 
_ 


o 
Wr —O Oo 


s 


3: 1 
3 1 
3 1 
3 1 
3: 1 
3 1 
3: 1 
: 1 
3 1 
3 1 
: 1 
3 1 
3 1 
3: 1 
3: 1 
3: 1 
3 1 
3 1 
3 1 
: 1 
3: 1 
3 1 
a 
3; 1 
3 7 
3 1 
3 1 
3; 1 
3; 1 
3 
3 1 
3 1 
3 1 
2 1 
: ? 
3 1 
: a 
3: 1 
3 1 
3 1 
3 1 
3: 1 
3 1 
3 1 
3 1 
31 
3: 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3: 1 
3 1 
: 1 
: i 


PIPPI IPP at at rt st st ed 


HELP_DEF NAME = DESCRIPTOR (*SYSSHELP: .HLB'), ! default helpfile name 


14 
DySKOVOTA WecSeoct0ee Q5HB:E MTT etisscsz Maemereg | Page, 


3 4 ¢ 1766 LIBRARY _NAME = DESCRIPTOR ("DISKQUOTA'); ! HELP text Library 
<n 
: 17 1768 HELP_FUNCTION INITIAL (LBRSC_READ), 
: 17 176 HELP" TYPE INITIAL (LBRSC-TYP_HLP), ' declare Lib a HELP Lib 
: 1788 1770 HELP“LIBINDEX : LONG, i pointer to Lib index 
; 178 44 LIBRARY _OP LONG; ' used as a boolean 
HR ABE J oem 
: 179 1775 STATUS; ! used as boolean 
: if9¢ ne 
: 1796 1778 i Check to see if HELPLIB is already OPENed. If it is, skip the 
3 444 44 OPENing code and get right to the HELP text retrieval. 
: 1799 1781 2 
: 1800 1788 IF NOT (.LIGRARY_OPEN) 
: 1801 17 THEN 
: 180¢ 17 BEGIN 
3 1803 7 5 4 IF NOT (STATUS = LBRSINI_CONTROL (HELP_LIBINDEX, HELP_FUNCTION, HELP_TYPE)) 
; 1805 1787 ; ERR_EXIT (DSKQ$_HELP_INIT, .STATUS); 
: 1807 1789 4 IF NOT (STATUS = LBRSOPEN (HELP_LIBINDEX, LIBRARY_NAME, 0, HELP_DEFNAME)) 
; 1809 1791 ERR_EXIT (DSKQ$_HELP_OPEN, .STATUS); 
: 1811 1798 LIBRARY_OPEN = 1; ! flag Library open 
: 1818 1794 END; 
. ee 
: 1815 1999 i Get and display the HELP text. LBRSGET_HELP will call LIBS$PUT_OUTPUT 
5 isi8 18 to print the HELP text. 
; i816 1800 3 IF NOT (STATUS = LBRSGET_HELP (HELP_LIBINDEX, 0, 0, 0, KEY_VECTOR 9 . 
> 1819 1801 KEY“VECTOR( 2]. 
: 1820 1 0¢ KEY"VECTORE4), 
> 1821 180 KEY"VECTOR 6 ; 
: 18 ; 1804 KEY-VECTOR 
: 18 1805 KEYVECTOR(1 : 
3 1824 1806 KEY-VECTORL1235) 
> 1825 1 0 THEN 
: 1 $ 1 ; ERR_EXIT (DSKOS_HELP_TEXT, .STATUS); 
: 1810 ; 
:1 $ 1811 1 END; ! end of routine ACT_HELP 
-PSECT SPLITS,NOWRT,NOEME ,z 
42 46C 68 2€ 3A SO 4C 465 68 24 53 59 53 is P.AAU: ASCII \SYSSHELP: .HLB\ : 
42C P.AAT: <LONG 13 : 
BBo00K00" O06 “ADDRESS P. AAU 


a SSS 


— 
Sae8" 


y 14 
WERSeimts GR 


14-Sep-1984 


DISKQ.SR 


41 56 4F 55 51 468 53 49 44 43 P.AAW: .ASCII \DISKQUOTA\ 
9 tz P AAV PONE 
SbooKKe" Oocee  OORESS P.AAW 
.PSECT SOWNS,NOEXE,2 
00000001 0026¢ HELP_FUNCTION: 
00000003 00270 HELPLTYPE: : 
00274 HELP_LIBINDEX: 
.BLKB 4 
00278 LIBRARY_OPEN: 
.BLKB 4 
HELP_DEFNAME= P.AAT 
LIBRARY _NAME= P.AAV 
.EXTRN LBRSINI_ CONTROL 
TRN LBRSOPER, LBRSGET_HELP 
-PSECT SCODES,NOWRT,2 
001¢ 99009 .ENTRY ACT_HELP, Save R2,R3,R4 
54 000000006 00 9€ 00002 MOVAB LIBSSTOP, R4 
53 00000000° EF 44 00009 MOVAB HELP _LIBINDEX, R3 
4c 06 A f 00010 LBS LIBRARY _OPEN, 3$ 
FC «OAS OOF 90014 PUSHAB HELP_TYPE 
FB AS 9F 00017 PUSHAB HELP "FUNCTION 
53 DD OOO1A PUSHL R 
000000006 00 Q FB 9001¢ CALLS #3, LBRSINI_CONTROL 
06 38 8 $09 BLBS STATUS, 1$ 
38 DD 000 3 PUSHL STATUS. 
004500F 0 er DD 00028 PUSHL 84522224 
2 FB 00031 CALLS #2, LIBSSTOP 
00000000° gf OF 99 1$ PUSHAB HELP_DEFNAME 
E D4 O003A LRL = (SPY 
00000000° gf 9F 000 § PUSHAB LIBRARY_NAME 
3 oD 004 PUSHL R 
000000006 99 4 FB 00044 CALLS #4, LBRSOPEN 
D 0048 MOVL RO, STATUS 
08 E uf BLBS STATUS, 2$ 
DD PUSHL STATUS 
004500F8 BF DD 3 PUSHL 2&4 32 
64 é FB CALLS #2, LIBS$STOP 
04 a3 p 33 MOVL #1, LIBRARY_OPEN 
FF7C «6C3OOF 5 PUSHAB KEY_VECTOR*S 
FF74 «C3OOF PUSHAB KEY “VECTOR+4 
FF6C «C3 OOF PUSHAB KEY"VECTOR+ 
FF64 C3 PUSHAB KEY VECTOR+#24 
FFSC 6OC3OOF PUSHAB KEYVECTOR+16 
FFSG «CSO PUSHAB KEY VECTOR+8 
FRSC ¢ F PUSHAB KEY"VECTOR 
— 7C¢ CLRQ 0s = (SP) 
ze D4 CLRL 0s = (SP) 
5 DD 00 PUSHL R3 


AX-11 Bt igsaze V4.0-74 
CJDISKQUOTA.B32;1 


1707. 


: 1 7a8 


; 1787 


1789 


KE 


dl 


sicitndaisiaaaeaiiiaincicainaacaiatinanmpiets cele iencnieassinnsstl pentencncemesninesmiatitiasinant ' — 


sues" ERIM HE ELLA | 
000000006 3 $ SALLE 4 status.” HELP 
: Bes stAtus- 
fF 3i8 rH 
9 
9 


1 
7 CALLS 1 “{e8stop 
& MO wi, R 


—~ 


0 


oontoonrmo 
fSowovlwow 
wv 
3 
w 
rez 
= 
Be Be Be Be Be Be Bee 


| 
| 00650100 BF 
| 4 


al — 


IMM MM Mr o> “22 
COOZ ® i i  -H-t - 
Ao MMMMGmMmAM— 


1808 Sym 
1811 G 
; Routine Size: 158 bytes, Routine Base: S$CODES + 0872 CTL 


—_—- 


ogseaueTA rScheo-1966 25:38: 


y GLOBAL ROUTINE MAIN_HANDLER (SIGNAL_VEC, MECHANISM) = 
5 
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46 DISKQ.SRCIDISKQUOTA.B32;1 (20) 


'oe 
: Val 
' Functional Description: au 


This routine is the main condition handler for the DISKQUOTA utility. 
It receives a signal which is either an internal error code or a 
standard system status. If the former, the appropriate ete is 
formatted and printed. For the latter, the condition is simply 
resignalled. 


Calling Sequence: 
standard 


Input Parameters: 
none 


SoSoooooooooes 


PERE EERE RR 


WN "OO OONOVEWN “OC OONAUES WOO 


Implicit Inputs: 
none 

Output Parameters: 
non 


Implicit Outputs: 
none 


09 Cd Cd Co C9 Co OD CD CD CD 
PAA AAMIMIW 


Routines Cailed: 
none 


SNe 


FF Fe 
we 8 ee re ee ee ee ee re ee ee 


Routine Value: 
none 


Signais: 
none 


uw 


Side Effects: 
none 


LISS hts 


SIGNAL VEC : REF BBLOCK, ! signal vector arg 
ME CHANTSM : REF BBLOCK; ! mechanism vector arg 


ww 


LOCAL 


DONO VIEW O® 


SNA NNN 


§ 
SSSSSSSSSSSSSSSSSSS 


FORMAT_DESC : VECTOR (2) : pir ice descriptor for message format 
e : REF VECTOR C,BYTEJ, ! string pointer 
ERR_CODE : BBLOCK (4); ! error status code 


EXTERNAL ROUTINE 
LIBSPUT_OUTPUT : ADDRESSING_MODE (GENERAL); 


WwnN— 


ad Cad HO DO0 GOA RU OOS NOME WO DOo MOA REO DOS OO Oa ee OOD IRR URD 


Be Se Se Se Se Se Ge Ge Se Se Ge Se Fe Se Se Se Se Ge Ge Se Se Se Se Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Se Se Ge Se Se Se Ge Se Ge Se Se Ge Ss oe Ss Se Se FH Se SESH Se See 
a a et a a ek ak ed ed ed od ed 
uw 


a a a ee ee ee ee ee ee ee ee ee ed ed ed dd od 
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; do formatting as necessary. ‘val 
| 


FRR.CODE = SIGNAL. vECCC HFSL_S1G_NAME); 
IF = a CODECSTSSV=FAC_NOJ EO Pe CO be 


ECSTSSV_MSG_NOJ; 
ef R_COBE); 
+ 2; | 
TPUT_LENGTH; | 


C0), 
GUTLEN 2 QUTPU DESC 0}. 
OUTBUF = OUTP ES¢tO 
PRALST : SUNN PEE CHF $L_S1G_ARG1) 


LIBSPUT > burput (OUTPUT_DESC); 
! If there is a signal argument remaining 4 is a system error status. 
Convert its severity to error and signal i 


DE = 0; 
L_VECCCHFSL_SIG_ARGS] GTRU .PLO] + 3 


a 
“= 


" same = .VECTOR CSIGNAL_VECCCHFSL_SIG_ARG1), .PC0JJ; 


BEG 
ERR CODECSTsBy SEVERITY] = STS$K_ERROR; 
36 siGAn. -ERR_CODE); 


secunienccHre. MCH_SAVRO] = 
—_— CSIGRAL _VECCCHF SL_ sic NAME], STSSV_SEVERITY] EQL STSSK_SEVERE 


| 
| 
pS 
IF .ERR_CODE NEQ 0 | 
THEN 
| 
BEGIN 
$01 0W (CHAN = .CHANN 

UNC = 10$_ DEACCESS); 
SUNUIND (DEPADR = MECHANISMCCHFSL_MCH_DEPTH)); | 
RETURN SS$_CONTINUE; | 
END; ! end of routine MAIN_HANDLER 


-EXTRN SYSS$FAOL 
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22 DD 00039 
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56 0D 0941 
OC AE 9F 00043 
000000006 00 % 4 Benes 
000000006 00 9 4 4H 
50 33 oA 00038 
51 03 Ad a6 0058 
51 64 D Be beo 
04 18 00062 
ne a 
OE 1 B06, 
ee ee cee 8 ee 
000000006 99 01 FB 00073 
5 08 AC 00 QO07A 
Oc AS 01 00 0007 
04 06 AG 03 23 + Boo 
E 7C QO08A 
7e 7C Boge 
re Bs, 
7€ 34 7D 00099 
7E FEES . Mei 4 94 
000000006 00 oc 4 ty 
08 AS OF OOM 
coven + 6b sii 
04 00082 


3; Routine Size: 179 bytes, Routine Base: $CODE$S + 0910 
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DISKO. SRCIJDISKQUOTA. "833, ;1 


MAIN any dil Save R2,R3,R4,R5,R6 
OUTPOT_D R6 


ne R& 
4( Ra) “gh CODE 
, #12, ERR_CODE, #69 


#3, #13, ERR fone ERR cope 
eS omm TABLE ERR_CODET, 

s 330" FORMAT: SE Sc ee 

#132, OUTPUT_BESC 
B(R4S, RS 
R5 
R6 


R6 
FORMAT_DESC 
#4, SYSSFAOL 


#1, LIBSPUT_OUTPUT 
ERR_CODE 

(P) 

3(r6), RI 

(RO), RI 

(R5)CRO}, ERR_CODE 
RR_C 

#2 i? #3, ERR_CODE 

nkdeSSIGNAL 


metuh NISM, R3 
#i, igth R35 
#0. #3, (RO), #4 


#i2, SYS$O10W 
-(SP) 


8(R3) 
#2, SYSSUNWIND 
#1, RO 


o 
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! end of routine EXIT_HANDLER 
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SIBS SLES IRENA L RELISTS SSS ESOC NOLO OS Ba Va S SSE SSS ESTES SS 
LE EE 


ncn ee a ee hoe 
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38 AX-11 Ol igse32 V4.0-74 Page 77 
46 DISKQ.SRCJDISKQUOTA.B32;1 (21) 


| 
| 
007¢ 000 -ENTRY EXIT_HANDLER, Save R2,R3,R4,R5,R6 3 1921 
56 00000000' EF 3 MOVAB CLEARUP_FLAGS, R6 : 
| A 66 § BLBC, CLEANUPTFLAGS, 18 > 1966 
00460 8F 00 é£ we 9 2 MOVCS #0, (SPY, #0, #64, QUOTA_FIB + 1969 
i P 
SA 6 a8 0 0001 MOVW #8, QUOTA_FIB+22 + 1970 
E 7¢ 9001 CLRO 0 =< §P) + 1974 
| 7E 7C 0001B CLROQ 0 = (SP) : 
7E D4 00010 CLRL = (SP) : 
00D4 C6 F OOO1F PUSHAB OF IB DESC : 
§ C 000 3 CLRO. 0 = (SP : 
7€ 38 7D 000 MOVO #56, (SP) : 
7E FECB C6 3¢ 00028 MOVZWL CHANNEL, =(SP) : 
E 04 0002D CLRL = (SP ; 
000000006 00 OC FB 000eF CALLS #12, SYS$OQIOW : 
04 00036 18: RET * 1977 


; Routine Size: 55 bytes, Routine Base: SCODES + 09C3 


15 
DISKQUOTA 18-52 -1984 23:38:38 AX-11 Bliss-32 v4.0-74 Pa 78 
4 1a-8ep-19 4 93:79:38 DISKQ.SRCIDISKQUOTA.B32;1 9° 22) 
3; 1999 137 ! GLOBAL ROUTINE COMMON_I0 (EFN,CHAN,FUNC,IOSTS,ASTADR,ASTPRM,P1,P2,P3,P4,P5,P6)= 
; 1 19 1 tee 
; ¢ 19 1! 
3 § : FUNCTIONAL DESCRIPTION: 
: 005 19 1! This routine simply executes a $Q10W call with the parameters 
: 006 1985 1! supplied. o.- ° 
; 200 19 1! 
; 2008 19 1 ! CALLING SEQUENCE: 
3 sed : COMMON_IO (EFN,CHAN,FUNC,IOSTS,ASTADR,ASTPRM,P1,P2,P3,P4,P5,P6) 
; O19 1990 1 ! INPUT PARAMETERS: 
3 org 1991 1! As to $010W 
; 201 1Sae 1! 
3; 2016 1995 1! IMPLICIT INPUTS: 
; 2015 19946 1! NONE 
3 Big 1995 1! 
; 201 1s 1 ! OUTPUT PARAMETERS: 
3; 2018 1997 1! NONE 
3; 2019 1998 1! 
; 2020 1999 1 ! IMPLICIT OUTPUTS: 
; 2021 000 1! NONE 
; 20 ¢ 001 1! 
: 20 ONE 1 ! ROUTINE VALUE: 
3 2024 003 1! As to $01]0W 
3; 2025 006 1! 
; 2026 005 1 ! SIDE EFFECTS: 
3; 2027 O06 1! As to $010W 
: 2028 007 1! 
; 2029 008 1 !-- 
; 20 009 3 
: 2031 010 BEGIN 
; 20 § 011 
; 20 ote BUILTIN 
; 20 01 AP, 
: 2035 014 CALLG; 
: 20 015 
3; 2037 BIg EXTERNAL ROUTINE 
; 20 01 SYS$Q10W : ADDRESSING_MODE (GENERAL); 
‘Be BN 
3 zt 0 ? : We simply pass the call and its parameters along to $01]0W. 
3 20446 0 5 CALLG (.AP, SYS$Q]0W) 
3; 2045 024 ; 
3; 2046 025 END; ! End of routine CCMMON_I0 
0000 00000 ENTRY COMMON_I0, Save nothing : 197 
000000006 00 6C FA 9002 CALLG (AP), SyS$al0W : 202 | 
04 000 RET : 20 


r— 


—————_— —_ 
i 
i 


1§ 
/DISKQUOTA 14.52 “19 :38:38 AX-11 Bliss-32 v4.0- 
W088 1a-Sep-19 93:79:28 DISKQ.SR beiSieZovota 033; 31 
; Routine Size: 10 bytes, Routine Base: SCODES + O9FA 

3; 2047 

5 4 0 1 END 

3; 204 028 0 ELUDOM 

-EXTRN LIBSSIGNAL, LIBSSTOP 

; PSECT SUMMARY 

: Name Bytes Attributes 

; SMSG_TEXT 1804 WNOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(O) 

3; SMSG_ INDEX 132 NOVEC,NOWRT, ROD, EXE .NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

; Sowns 6 NOVEC. WRT, RD .NOEXE.NOSHR, LCL. REL. CON.NOPIC.ALIGN(O) 

; SPLITS 1096 WNOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

>; _LIBSKEYOS 30 NOVEC,NOWRT, RD EXE, SHR, LCL, REL, CON, PIC,ALIGN(1) 

; LIBSSTATES 304 VEC,.NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(1) 

>; _LIBSKEY1$ 110 WNOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(1) 

; SCODES 2564 NOVEC.NOWRT, RD. EXE.NOSHR, LCL. REL. CON.NOPIC.ALIGN(2) 

H Library Statistics 

: ececesece Symbol § eoeecors Pages Processing 

: File Total Loaded Percent Mapped Time 

; ~$255$DUA28: syst is}il LB. 32:1 18619 88 0 1000 00:01.9 

; _$255$DUA28:(SYSLIBIJTPAMAC .L32;1 4 0 71 14 00:00.2 

3 COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:DISKQUOTA/OBJ=O0BJ$:DISKQUOTA MSRC$:DISKQUOTA/UPDATE=(ENNS$:DISKQUOTA) 
3 oy Ae 2564 code, ¢ 4112 data bytes 

: pth Hees 55.3 

3: Lines/CPU Min: 413 

3 oneness Petras $7801 

3 pewet | Used: 366 pages 

; Compilation Complete 
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